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with  Text_lo;use  Texl  lo; 

with  Test_Stub; 

with  Real  Time_Monitor; 


procedure  Appi  Is 


begin 

loop 

Test_Stub.Go; 

begin 

Real_Time_Monitor.Rtm; 

exception 

when  Real_Time_Monitor.Terminate_Rtm  => 

Put_Line(*RTM  terminated,  application  still  running"); 

end  ; 

end  loop ; 
end  Appi; 
pragma  page; 
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package  Test_Stub  Is 
type  Rtm_Record  is  record 
I:  Integer; 

R:  Float; 

end  record  ; 

type  Rtm_Pointer  is  access  Rtm_Record; 
type  Rtm_Enumls  (Hehe,  Haha,  Hoho); 


My_  Array:  array  (1..5)  of  Integer  :=  (1,2, 3, 4, 5); 

My_Pointer:  Rtm_Pointer  :=  new  Rtm_Record'(l  =>  2,  R  =>  1000.0); 
Myjnteger:  Integer  :=  2; 
lnt_2:  Integer  :=  337; 

My_Real:  Float  >  10.0; 

My_Enum:  Rtm_Enum  :=  Hehe; 

procedure  Go; 

end  Test  Stub; 


package  Test_Stub  is 
procedure  Go  is 
begin 

My_Pointer.l  :*=  My_Pointer.l  +  2; 
MyReal  :=  My_Real  +  1.0; 
My_lnteger  :=  Myjnteger  +  1 ; 

end  Go; 
end  Test_Stub; 
pragma  page; 
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. 

--/  Module  Name: 

- 1  Real_  Time_  Monitor 
-I 

--/  Module  Type: 

--/  Package  Specification 
--/ 

-/  Module  Purpose: 

--/  77w's  package  is  the  main  driver  for  the  RTM. 

-/  Module  Description: 

~l  Implements  the  real-time  monitor  abstraction,  i.e.,  all  the 
--/  commands  found  in  the  RTM  User’s  Manual. 

--/ 

--/  References: 

--/  Design  Documents: 

--/  Real-Time  Monitor  Requirements 
--/  Real-Time  Monitor  Design 

-I 

-I  User’s  Manual: 

-/  RTM  User's  Manual 
--/ 

--/  Testing  and  Validation: 

--/  none 
- 1 

~l  Notes: 

--/  none 

-I  Modification  History: 

~l  15Apr87  rtvs  Created 

-I 

-/• - 

--/  Distribution  and  Copyright  Notice: 

-I  TBD 
~! 

--/  Disclaimer: 

-/  Tli/s  work  was  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
-I  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 

-/  representing  official  policies,  either  expressed  or  implied, 

~l  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

~l  the  Department  of  Defense,  or  the  U.S.  Government. " 

pragma  page; 
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package  Real_Time_Monitor  is 

--  Signals  to  the  controlling  program  the  termination  of  the  real-time 
-  monitor. 

Terminate_Rtm:  exception  ; 
procedure  Rtm; 

-/ . 

-/  Description: 

--/  This  module  is  the  RTM  proper.  See  the  documents  associated 
--/  with  the  RTM  for  a  complete  descnption  of  what  it  does. 

-I 

~l  Parameter  Description: 

--/  none 


end  Real_Time_Monitor; 
pragma  page; 
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--/ . . . 

--/  Module  Name: 

--/  Real_Time_Monitor 

-I 

--/  Module  Type: 

--/  Package  Body 
--/ 

--/  Module  Description: 

--/  777/s  package  just  ties  together  the  services  needed  to  execute 
-I  the  RTM: 

--/  frte  initialization  procedure 

--/  the  command  processor  procedure 

--/  the  termination  procedure 

--/  and  the  RTM  itself 

--/ 

--/  References: 

Design  Documents: 

- /  Real-  Time  Monitor  Requirements 

-- /  flea/-  Time  Monitor  Design 

-I 

--/  User’s  Manual: 

--/  RTM  User’s  Manual 

--/ 

--/  Testing  and  Validation: 

--/  none 

**/ 

--/  Notes: 

-/  none 

-/  Modification  History: 

--/  15Apr87  rtvs  Created 

~l 

-I - 

-/  Distribution  and  Copyright  Notice: 

-I  TBD 
-*/ 

--/  Disclaimer: 

--/  TAi/s  kvodc  was  sponsored  by  the  Department  of  Defense. 

-/  The  views  and  conclusions  contained  in  this  document  are 
~l  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
~l  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  f/7e  Department  of  Defense,  or  the  U.S.  Government. " 

pragma  page; 
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with  Rtm_Form;  use  Rtm_Form; 

--  Use  all  the  services. 

with  Define_Rtm_Cli;  use  Defme_Rtm_Cli; 

--  Use  the  type  "rtm_command_representation". 

-  Use  all  the  services. 

with  TerminaMnterface; 

-  Use  the  "open" and  "close"  sen/ices. 


package  Real_Time_Monitor  is 

--  Define  the  structures  needed  by  the  RTM  to  interface  to  the  user. 

User_Command_Une:  String  (1  .80); 

User_Command_Length:  Natural; 

User_Line_Ready:  Boolean  :=  False; 

Command_Found:  Rtm_Command_Representation; 

--  Internal  Procedures 

procedure  Setup_Rtm  is  separate  ; 
procedure  Cioseout_Rtm  Is  separate  ; 

procedure  Process_The_Command  (Users_Command  :  In  Rtm_Command_Representation) 

Is  separate  ; 

--  Visible  Procedures 

procedure  Rtm  Is  separate  ; 


■■! . 

-/ 

-/  Real-Time  Monitor  Body 

~l 

- /  Perform  RTM  initialization. . . 

-I 

"I . 

begin 

Setup_Rtm; 

end  Reai_Time_Monitor; 
pragma  page; 
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with  Standard Jnterface; 

-  Use  the  execeptions  "abort ^process",  ‘ undefined_name ",  "no_default", 

-  " abort_command"  and  "no_command". 

separate  (Real_Time_Monitor) 

procedure  Rtm  is 

-I - * . . . * - 

--/  Description: 

--/  A  complete  description  of  the  RTM  and  its  functioning  can 
--/  be  found  in  the  documents  referenced  in  the  spec.  Here  we 
--/  will  just  describe  how  the  RTM  implements  those  functions 
--/  at  the  highest  level.  The  RTM  is  organized  as  a  cyclic  executive: 

--/  1.  It  polls  the  user  for  input. 

~l  2.  if  the  input  is  ready, 

--/  a.  parse  the  command 

-j  b.  execute  the  command  (which  happens  only  if  a  legal 
--/  command  was  found). 

-j  3.  Update  any  active  pages.  This  happens  every  cycle  through 
--/  the  RTM,  regardless  of  whether  the  user  types  a  command 
- 1  (legal  or  otherwise). 

--/ 

--/  Parameter  Description: 

--/  none 

-I 

--/  Notes: 

--/  none 

”/ . . " . . . 

begin 

begin 

--  Attempt  to  get  the  user’s  command. 

Get_Rtm_Fieid  (Field  =>  Rtm_Command, 

Fieid_Value  «=>  User_Command_Line, 

Data_Available  =>  User_Line_Ready); 

-  When  a  command  has  been  found, 

-  Parse  the  command 

-  -  Process  the  command 

-  •  Reset  the  parser  for  the  next  command  line 

It  User_Line_Ready  then 

Command_Found  :=  Rtm_Cli.Parse_Command_Une 
(Rtm_Commands,User_Command_Line); 
Process_The_Command  (Users_Command  ■=>  Command_Found); 
C!ear_Command_Line  (Command_Found); 

end  If ; 
exception 

-  The  parser  has  a  large  number  of  exceptions  that  signal  a  bad 

-  command;  all  of  them  are  handled  here,  and  relayed  to  the  user. 

when  Standard_lnterface.Abort_Process  | 

Standard  Jnterface.  Undefined_Name  | 

Standard  Jnterface.  No_Default  i 


Standardjnterface. Abort  Command  => 

Put_Rtm_Field  (Field  =>  Message_Field_A, 

Field_Value  =>  User_Command_Line); 

Put_Rtm_Field  (Field  =>  Message_Field_B, 

Field_Value  =>  "Bad  commad  line,  reenter*); 
when  Standardjnterface.  No_Command  => 
null ; 

when  Terminate_Rtm  => 

RAISE  ; 

when  others  => 

Put_Rtm_Field  (Field  =>  Message_Field_B, 

Field_Value  =>  "Bad  Command  line  *); 

end  ; 

-  Finally,  after  the  user  command  has  been  processed,  we 

-  perform  our  periodic  update  of  any  active  pages 

Process_The_Command  (Users_Command  =>  Update_Active_Pages); 
Clear_Rtm_Field; 
end  Rtm; 
pragma  page; 
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separate  (Reai_Time_Monitor) 
procedure  Setup_Rtm  Is 

--/*** . * . 

Description: 

--/  This  module  is  responsible  for  performing  all  initialization 
--/  required  by  the  RTM  prior  to  execution.  It  must: 

~t  1.  Open  a  terminal  channel  for  I/O. 

--/  2.  Create  the  RTM  forms. 

-I 

--/  Parameter  Description: 

--/  none 
--/ 

-/Notes: 

--/  none 

begin 

T  erminai  Jnterface.Open ; 

Initia  lize_Rtm_Form ; 
end  Setup_Rtm; 
pragma  page; 
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separate  (Real_Time_Monitor) 
procedure  Closeout_Rtm  is 

--/ . 

--/  Description: 

--/  This  module  performs  all  termination  operations  needed  after 
--/  completion  of  the  RTM.  It  must: 

--/  Close  the  terminal  I/O  channel. 

-I 

--/  Parameter  Description: 

--/  none 

-I 

--/  Notes: 

--/  none 

-I . * - - 

begin 

T  erminal  Jnterf  ace  .Close ; 
end  Closeout_Rtm; 
pragma  page; 
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with  Interact; 

--  Use  the  service  ’interact". 

with  Terminal Jnterf ace; 

--  Use  the  service  "clear_screen". 

with  Page_Processor; 

--  Use  the  services  "start _page",  "stop jpage",  "check _page"  and 

-  ’ update _pages". 

with  Parameter  Manager; 

-  Use  the  serivces  "read"  and  "set". 

separate  (Reai_Time_Monitor) 

procedure  Process_The_Command  (Users_Command:  In  Rtm_Command_Representation) 

is 


--/  Description: 

~l  This  command  invokes  the  modules  which  implement  the  various 
--/  commands. 

-I 

~l  Parameter  Description: 

--/  users_command  ->  The  command  identifier  for  the  most  recently, 
-/  successfully  parsed  user  command. 

--/ 

--/  Notes: 

--/  The  Quit():  command  is  implemented  in  this  module  by  raising 
-/  the  Terminate_Rtm  exception,  which  is  propagated  out. 

-/ . 

begin 

case  Users_Command  Is 
when  Edit  => 

Interact; 

Terminal_lnterface.Clear_Screen; 
when  Quit  => 

RAISE  Terminate_Rtm; 
when  Read  »> 

Parameter_Manager .  Read ; 
when  Set  => 

Parameter_Manager.Set; 
when  Check  «> 

Page_Processor.Check_Page; 
when  Start -> 

Page_Processor.Start_Page ; 
when  Stop  «> 

Page_Processor.Stop_Page; 
when  Update_Active_Pages  «> 

Page_Processor.  Update_Pages ; 
when  others  «> 
null ; 

end  case  ; 

exception 
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when  T erminate_Rtm  => 
Closeout_Rtm; 

RAISE  ; 

when  others  => 
null ; 

end  Process_The_Command; 
pragma  page; 
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/ . 

--/  Module  Name: 

--/  RTM_Form 
"/ 

--/  Module  Type: 

--/  Package  Specification 
--/ 

--/  Module  Purpose: 

--/  77ws  package  abstracts  away  the  details  of  using  the 
--/  forms  management  system  for  input  and  error  messages. 

--/  Module  Description: 

--/  777/s  package  hides  from  the  RTM  itsetf  the  actual  details 

--/  of  dealing  with  the  forms  manager  for  I/O.  The 
- 1  services  provided  include: 

-I 

--/  1.  Initilizing  the  message  and  prompt  forms. 

--/  2.  Presenting  error  messages  to  the  user. 

--/  3.  Setting  up  and  retrieving  data  entered  by  the  user 

-/  into  the  prompt  form. 

--/ 

--/  References: 

--/  Design  Documents: 

--/  none 

“/ 

--/  User’s  Manual: 

--/  none 

--/ 

--/  Testing  and  Validation: 

--/  none 

—  I 
I 

-/Notes: 

--/  none 

--/  Modification  History: 

-/  16  Apr6  7  rtvs  created 

~l 

- 1  Distribution  and  Copyright  Notice: 

-I  TBD 
-/ 

--/  Disclaimer: 

-/  ’This  work  was  sponsored  by  the  Department  of  Defense. 

-/  The  views  and  conclusions  contained  in  this  document  are 
-/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
- 1  representing  official  policies,  either  expressed  or  implied, 

-/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

-/  the  Department  of  Defense,  or  the  U.S.  Government. " 

###»*#*•**#••#***#»•••**•**••••*••••**•***•**••* ••****• 

pragma  page; 


package  Rtm_Form  Is 


--  This  type  defines  the  different  interface  modes  used  to  communicate 
-  with  the  user.  See  package  body  for  a  complete  description. 

type  lnput_Mode  is  (Screen_Mode.  Command_Mode); 


--  This  type  defines  the  different  fields  available  to  the  RTM  on  the 
-  RTM  interface  form. 

message_field_a  ->  is  an  output-only  message  field. 
message_field_b  ->  is  an  output-cnly  message  field 
rtm_command  ->  is  an  input-only  field  used  only  for  obtaining 
user  inputs. 

form  ->  is  not  a  message  field,  but  affects  the  rtm  interface 
form  as  a  whole.  This  is  a  shorthand  notation  for 
performing  the  same  operation  on  all  the  message  fields. 

type  Rtm_Form_Fields  Is  (Message_Field_A,  Message_Fieid_B, 
Rtm_Command,  Form); 


procedure  lnitialize_Rtm_Form; 

--/ . * . 

--/  Description: 

--/  Creates  the  RTM  interface  form  and  makes  it  available  for  use. 

**/ 

--/  Parameter  Description: 

--/  none 

"/ . . . 


procedure  Get_Rtm_Field  (Field:  In  Rtm_Form_Fieids; 
Fieid_Vaiue:  In  out  String; 

Data_Available:  In  out  Boolean); 

--/ . . . 

--/  Description: 

--/  Displays  the  RTM  prompt  and  retneves  data  entered  by  the 
-j  user  in  the  form. 

-I 

--/  Parameter  Description: 

--/  field  ->  The  name  of  the  field  on  the  RTM  interlace  form  from 
--/  which  to  retrieve  the  data. 

--/  fieid_value  ->  The  data  entered  by  the  user  into  the  field. 

--/  data_available  ->  A  logical  flag  which  indicates  when  data  are 
~l  available  in  the  indicated  field,  important 

--/  when  asynchronous  I/O  is  being  used  to  interface 

-I  to  the  user’s  terminal. 

procedure  Put_Rtm_Field  (Field:  In  Rtm_Form_Fields; 
Field_Value:  In  String  :« 

--/ . * . 

--/  Description: 

~l  Modifies  the  value  of  a  field  on  the  RTM  interface  form 
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--/  It  then  presents  the  information  to  the  user. 

--/ 

--/  Parameter  Description: 

--/  field  ->  The  name  of  the  field  on  the  RTM  interface  form 
--/  in  which  to  store  the  data. 

--/  field_value  ->  The  data  to  be  stored  in  the  field. 

-I . 

procedure  C!ear_Rtm_Field  (Field:  In  Rtm_Form_Fields  :=  Form); 

/ . 

--/  Description: 

--/  Blanks  out  the  current  value  of  a  field  on  the  RTM  interface 
-- /  forrrt. 

-I 

- 1  Parameter  Description: 

-/  field  ->  The  name  of  the  field  on  the  RTM  interface  form 
--/  to  blank. 

/ . 

procedure  Set_lnput_Mode  (Next_Mode:  In  lnput_Mode  :=  Command_Mode); 

~/ . . . 

--/  Description: 

--/  Select  the  next  input  mode  for  the  RTM  interface  form. 

**/ 

-/  Parameter  Description: 

--/  Next_mode  ■>  Needed  interface  mode  to  the  user. 

-I . 

end  Rtm_Form; 
pragma  page; 
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-I . 

--/  Module  Name: 

--/  RTM_Form 

”/ 

--/  Module  Type: 

--/  Package  Body 
--/ 

--/  Module  Description: 

--/  77)/s  package  implements  the  RTM  interlace  form.  This  form  is 

~l  is  visible  to  the  rest  of  the  RTM  as  four  fields  available  for 
--/  I/O  -  in  reality,  it  is  implemented  as  two  separate  forms.  The 
--/  fields  available  to  RTM  are: 

--/  Message_field_a:  an  80  character  output  only  field 
--/  belonging  to  rtm_ message_form. 

--/  Message_field_b:  an  80  character  output  only  field 
--/  belonging  to  rtm_message_form. 

--/  Rtm_command:  a  70  character  input  only  field 

--/  belonging  to  the  rtm _prompt_form. 

--/  Form:  operates  on  all  the  fields  above. 

--/ 

--/ 

--/  The  input_mode  is  used  to  select  either: 

--/  screen_mode:  a  semi -asynchronous  input,  that  is, 

--/  when  the  screen  is  being  updated  rapidly,  and 

--/  the  RTM  shouln't  wait  for  input  from  the  user, 

--/  an  asynchronous  input  is  requested,  and  the 

--/  RTM  continues  processing.  When  the  user  strikes 

--/  any  key,  the  rtm _promptJorm  is  displayed  and 

~l  the  user  enters  data  synchronously. 

~j  command_mode:  a  simple  synchronous  input  using  the 
--/  rtm _prompt_form. 

"/ 

--/  References: 

--/  Design  Documents: 

--/  none 

-I 

~l  Testing  and  Validation: 

--/  none 

-I 

~  I  Notes: 

~l  This  package  makes  use  of  SYSDEP,  which  contains  all  VAX/VMS 
~l  dependent  features  used  by  the  RTM. 

--/  Modification  History: 

--/  16Apr87  rtvs  created 
- 1 

_/ - 

-/  Distribution  and  Copyright  Notice: 

-I  TBD 
--/ 

--/  Disclaimer: 

-/  This  work  was  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
-/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
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--/  representing  official  policies,  either  expressed  or  implied, 
--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

-- /  the  Department  of  Defense,  or  the  U.S.  Government. " 

--/ . 

pragma  page; 
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with  Sysdep; 

-  Use  the  service  that  allows  for  asynchronous  input  of  a  character 

-  from  the  terminal. 

with  Form_Manager; 

--  Use  services  needed  to  create  a  form. 

with  Form_Executor; 

-  Use  the  services  needed  to  manipulate  the  forms  of  the  user  interface 

presentjorm  ->  to  display  a  form  to  the  user 
modify_field  ->  to  replace  the  value  in  a  field  of  a  form 

query  Jield  ■>  to  retrieve  the  value  in  a  field  of  a  form 


package  Rtm_Form  is 


-  The  current  input  mode  from  the  user,  as  described  above. 
CurrentJnput_Mode:  lnpirt_Mode  :=  Command_Mode; 


--  The  form  identifiers  needed  to  access  and  manipulate  the 
-  forms  of  the  user  interlace. 

Rtm_Message_Fomv.  F  orm_Manager .  F  orm_Access; 
Rtm_Prompt_Form:  Form_Manager.Form_Access; 


pragma  page; 


procedure  lnitiaiize_Rtm_Form  is 

~/ . 

--/  Description: 

-/  Creates  the  RTM  interface  forms  and  makes  them  available  for  use 
--/  internally.  It  does  this  by  creating  two  forms  and  then 
- 1  defining  their  fields  (one  at  a  time).  We  do  the  creation  here 
--/  to  avoid  any  disk  dependencies  and  the  chance  that  the  user 
- 1  would  modify  the  forms. 

-I 

--/  Parameter  Description: 

--/  none 

-I 

-/  Notes: 

--/  none 

-I . * . 

Field  :  Forrn_Manager.Field_Access; 

begin 

-  Create  the  output-only  message  form. 

Form_Manager.Create_Form 

((2.  80),  (21,  1),  Form_Manager.No_Ciear,  Rtm_Message_Form); 
Form_Manager.Add_Field 

(Rtm_Message_Form,  "message-a",  (1,  1),  80,  lnit_Vaiue  =>  ", 
Mode  «=>  Form_Manager.Output_Only,  Field  =>  Field); 
Form_Manager.Add_Field 

(Rtm_Message_Form,  *message-b“,  (2.  1),  80.  lnii_Value  =>  ", 
Mode  =>  Form_Manager.Output_Oniy,  Field  =>  Field); 

--  Create  the  input-only  prompt  form. 

Form  Manager  Create_Form 

((2,  80),  (23.  1),  Form_Manager.No_Clear,  Rtm_Prompt_Form); 
Form_Manager.Add_Fieid 

(Rtm_Prompt_Form,  ”,  (2,  1),  5,  lnit_Value  «=>  “rtm>  *, 

Mode  =>  Form_Manager.Constan1_Text,  Field  =>  Field); 
Form_Manager.Add_Field 

(Rtm_Prompt_Form,  'rtm^ommand',  (2,  6),  70,  lnit_Value  =>  ", 
Mode  *>  Form_Manager.lnpu1_Output,  Field  =>  Field); 

exception 
when  others  «> 
null  ; 

end  lnitialize_Rtm_Form; 
pragma  page; 
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procedure  Get_Rtm_Fieid  (Field:  In  Rtm_Form_Fields, 

Field_Value:  In  out  Stnng; 

Data_Available  In  out  Boolean)  is 

/ . 

--/  Description: 

- 1  Displays  the  RTM  prompt  and  retrieves  data  entered  in  the  form 
--/  by  the  user.  If  input  is  requested  from  one  of  the  output 
--/  only  fields  or  from  the  form  as  a  whole,  the  data_avai table 
--/  flag  is  returned  as  false  (since  no  data  can  ever  be  obtained 
--/  from  these  fields).  When  input  is  requested  from  the  rtm_prompi 
- 1  field,  where  all  the  user  input  comes  from,  two  situations  exist: 

-/  in  Screen_mode:  we  check  the  terminal  to  see  if  a  character 
-/  has  been  typed. 

--/  if  not,  data_avaJlable  is  returned  as  false. 

--/  if  so,  then  we  place  the  dm _prompt_form  on  the 

--/  terminal  and  prompt  the  user. 

--/  in  Command_mode:  we  place  the  dm _prompt_form  on  the 
--/  terminal  and  prompt  the  user. 

_ I 

I 

-/  Parameter  Description: 

--/  field  ->  The  name  of  the  field  on  the  RTM  intedace  form  from 
--/  which  to  retrieve  the  data. 

--/  field_value ->  The  data  entered  by  the  user  into  the  field. 

-/  data_available  ->  A  logical  flag  which  indicates  when  data  are 
--/  available  in  the  indicated  field.  Impodant 

-I  when  asynchronous  I/O  is  being  used  to  intedace 

--/  to  the  user’s  terminal. 

-I 

~l  Notes: 

--/  none 

-I . 

begin 

case  Field  is 

when  Message_Field_A  => 

Data_Avaiiable  :=  False; 
when  Message_Field_B  => 

Data_Avaiiable  :=  False; 
when  Rtm_Command  => 
case  Current _lnput_Mode  is 
when  Screen_Mode  => 

Sysdep.Get(Data_Avaiiable); 

If  Data_Availabie  then 

Form_Executor,Present_Form(Rtm_Prompt_Form); 
Fomn_Executor,Query_Field(Form  «=>  Rtm_Prompt_Form, 
Field  *>  "rtm_command\ 

Value  =>  Fieid_Value); 

end  If ; 

when  Command_Mode  => 

Form_Executor  .Present_F  orm(Fttm_Prompt_F  orm) ; 
Form_Executor.Query_Field(Form  «>  Rtm_Prompt_Form, 
Field  ->  "rtm_command\ 

Value  =>  Field_Vaiue); 

Data_Avaitabie  :«=  True; 
end  case  ; 
when  Form  => 


L  “  » 


n 


i 

!  k 


H 


Data_Available  :=  False; 

end  case  ; 
exception 

when  others  => 
null  ; 

end  Gel  Rtm  Field; 


pragma  page; 
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procedure  Put_Rtm_Field  (Field:  In  Rtm_Form_Ftelds; 

Field_Value:  In  String  :=  **)  Is 

--/ . * . 

--/  Description: 

--/  Modifies  the  value  of  a  field  on  the  RTM  interface  form 
--/  It  then  presents  the  information  to  the  user.  Since 
--/  the  rtm_command  is  input  only,  it  is  implemented  as  a  nop 
--/  Likewise  for  the  form  option. 

-I 

--/  Parameter  Description: 

--/  field  ->  The  name  of  the  field  on  the  RTM  interface  form 
--/  in  which  to  store  the  data. 

--/  field_value  ->  The  data  to  be  stored  in  the  field. 

--/ 

-/  Notes: 

-/  none 

~l . . 

begin 

case  Field  Is 

when  Message_Field_A  => 

Form_Executor.Modify_Fieid  (Form  =>  Rtm_Message_Form, 
Field  =>  “message-a", 

Value  =>  Field_Value); 

Form_Executor.Present_Form  (Form  =>  Rtm_Message_Fomn); 
when  Message_Field_B  => 

Form_Executor.Modify_Field  (Form  «=>  Rtm_Message_Form, 
Field  «=>  *message-b\ 

Value  =>  Fieid_Vaiue); 

Form_Executor.Present_Form  (Form  =>  Rtm_Message_Fomn); 
when  Rtm_Command  => 
null  ; 

when  Form  => 
null  ; 
end  case  ; 
exception 

when  others  => 
null  ; 

end  Put_Rtm_Field; 
pragma  page; 
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procedure  Clear_Rlm_Field  (Field:  in  Rtm_Form_Fields  :=  Form)  is 

--/ . ** . 

--/  Description: 

--/  Blanks  out  the  current  value  of  a  field  on  the  RTM  interface 
--/  form. 

-I 

--/  Parameter  Description: 

--/  field  ->  The  name  of  the  field  on  the  RTM  interface  form 
--/  to  blank. 

-I 

-I  Notes: 

--/  none 

-r . . . 

Blank_Une:  String(1..80)  :=  (1..80  =>  '  ’); 

begin 

case  Field  is 

when  Message_Field_A  => 

Forrn_Executor.Modify_Field  (Form  =>  Rtm_Message_Form, 
Field  =>  “message-a", 

Value  =>  BlankJJne); 
when  Message_Field_B  => 

Form_Executor.Modify_Field  (Form  =>  Rtm_Message_Form, 
Field  =>  "message-b". 

Value  =>  Blank_Line); 
when  Rtm  Command  => 

Form_Executor.Modify_Field  (Form  =>  Rtm_Prompt_Fomn, 
Field  =>  *rtm_command’, 

Value  =>  Blank_Line); 

when  Form  => 

Clear_Rtm_Field  (Messaae_Field_A); 

Ciear_Rtm_Field  (Message_Field_B) ; 

Clear_Fltm_Field  (Rlm_Command); 

end  case  ; 
exception 

when  others  => 
null  ; 

end  Clear_Rtm_Field; 
pragma  page; 
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procedure  Set_lnput_Mode  (Next_Mode:  In  lnput_Mode  :=  Command_Mode)  Is 

--/ . 

--/  Description: 

--/  Select  the  next  input  mode  for  the  RTM  interface  form.  This 
--/  interface  allows  the  user  to  modify  the  package  parameter  which 
--/  toggles  the  interface  between  synchronous  and  asynchronous  I/O. 

--/ 

--/  Parameter  Description: 

--/  Next_mode  ->  Needed  interface  mode  to  the  user. 

-I 

-I  Notes: 

--/  none 

-I . . . 

begin 

Current_lnput_Mode  :=  Next_Mode; 
end  Set_lnput_Mode; 

end  Rtm  Form; 
pragma  page; 


24 


October  1987 


/ . 

--/  Module  Name: 

-I  Define_RTM_CLI 

-I 

--/  Module  Type: 

--/  Package  Specification 

-I 

--/  Module  Purpose: 

--/  777/s  package  provides  the  interface  to  the  command  line 

--/  interpreter  of  the  RTM. 

--/  Module  Description: 

--/  77) e  interface  to  the  command  line  interpreter  (CL!)  is  composed 

--/  of  three  parts: 

-/  1.  An  enumeration  type  which  names  all  the  current  commands 

--/  available. 

--/  2.  .An  instantiation  of  a  gene  he  parser  package. 

--/  3.  general-purpose  subroutine  to  get  arguments  from 

--/  the  user's  command  line. 

--/  Basically,  the  CLI  is  set  up  to  operate  as  follows: 

--/  1.  RTM  main  procedure: 

--/  a.  reads  the  user’s  command  line 

--/  b.  parses  the  line  for  syntactic  correctness 

~l  using  the  rtm_cli  defined  below 

--/  2.  Each  routine  that  implements  a  command  is 

--/  responsible  for: 

--/  a.  fetching  all  the  arguments  for  the  command 
--/  b.  checking  the  arguments  for  sematic  conectness. 

-I 

-/  The  legal  RTM  commands  and  their  arguments  (defined  in  the 
--/  body)  are: 

-I 

--/  Check  (page  =>  <page  name> ); 

-I  Edit  (); 

-I  Quit  (); 

~l  Read  (name  =>  <name>); 

--/  Set  (name  =>  <name>,  value  =>  <value>); 

~l  Start  (page  =>  <page  name>,  update_rate  =>  <rate  in  secs>); 
~l  Stop  (page  =>  <page  name> ); 

-/ 

-/  Details  about  how  the  commands  are  used  and  what  they  do  are 
~l  discussed  in  the  RTM  User’s  Manual. 

-I 

--/  References: 

-/  Design  Documents: 

--/  Real-Time  Monitor  Requirements 
-/  Real-Time  Monitor  Design 

-I 

“/  User's  Manual: 

--/  RTM  User's  Manual 
--/ 

-I  Testing  and  Validation: 

-/  none 
- 1 

--/  Notes: 
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--/  The  command  update_active _pages  is  used  internally  by  the 
~l  RTM  and  does  not  (and  never  should)  have  a  definition  in  the 
--/  body  such  that  the  user  can  invoke  the  command. 

--/  Modification  History: 

--/  16Apr87  rlvs  created 


--/  Distribution  and  Copyright  Notice: 

-I  TBD 
-I 

--/  Disclaimer: 


This  work  was  sponsored  by  the  Department  of  Defense. 

The  views  and  conclusions  contained  in  this  document  are 
solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
representing  official  policies,  either  expressed  or  implied, 
of  Carnegie  Mellon  University,  the  U.  S.  Air  Force, 
the  Department  of  Defense,  or  the  U.S.  Government ." 


--/  This  wori 

--/  The  vie 

--/  solely  the 
--/  represen 
--/  of  Camet 

--/  the  Depa 

-/ . 

pragma  page; 
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with  Standard Jrtterface, 

--  Use  the  genenc  package  " command Jtne"  to  instantiate  the  parser  for 
-  the  RTM  command  language 


package  Define_Rtm_CN  Is 

--  Define  the  commands  recognized  by  the  RTM. 

type  Rtm_Command_Representation  Is 

(Check.  Edit,  Quit  .Read,  Set.  Start.  Stop,  Update_Active_Pages); 

-  Create  the  CLI  to  parse  the  commands  defined  above 


package  Rtm_Cli  Is  new  Standard_lnterface.Command_Line 
(Rtm_Command_Representation); 

--  Create  the  structure  to  hold  the  argument  definitions  tor 
-  all  the  commands  Use  the  "defme_argument"  entry. 

Rtm  Commands  Rtm_Cli.Process_Handle_ Array; 

pragma  page 
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procedure  Get_Argument  (Command  In  Rtm_Command_Representation; 
Argument_Name:  In  Stnng; 

Argument  Value  In  out  String), 

--/  Description: 

--/  Retneve  an  argument  from  a  command  line  entered  by  the 
-/  user  If  the  user  defaults  an  argument,  then  the  default 
--/  value  is  returned. 

--/  Parameter  Description: 

command  ->  The  command  which  the  user  entered  and  is  currently 
bemg  processed. 

-.  argument_name  ■>  The  name  of  the  argument  that  is  needed 
in  the  command  line. 

--/  argument_value  ->  The  value  entered  by  the  user  or  the  default 
-  !  value  for  the  argument. 


procedure  Ciear_Command_Line  (Command:  In  Rtm_Command_Representation); 

/ . 

--/  Description: 

--/  Used  to  reset  the  parser  after  a  command  had  been  parsed  and 
--/  processed. 

•■/ 

--/  Parameter  Description: 

--/  Command  ->  The  name  of  the  command  which  was  just  parsed  and 
--/  needs  to  be  reset. 

/ 

end  Define  Rtm  CIi; 
pragma  page: 
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with  Standardjnterface; 

-  Use  the  "set_toor  and  "define __process"  services. 
package  Define_Rlm_Cli  is 

-  Instantiate  the  package  needed  to  define  the  arguments  to  the  commands. 

-  Use  the  Defme_Argument  entry  in  package  Sthng_Arguments. 

package  Sa  is  new  Standardjnterface  String_Argument("string"); 
package  Si  renames  Standardjnterface; 

-  Visible  Procedures 

procedure  Get_Argument  (Command:  in  Rtm_Command_Representation; 
Argument J>Jame:  In  String; 

Argument_Value:  In  out  String)  is  separate; 

procedure  Clear_Command_Line  (Command,  in  Rtm_Command_Representation) 

Is  separate  ; 

pragma  page; 
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/ . 

--/  Defme_rtm_cli  package  body 

-I 

--/  Description: 

--/  Wftaf  follows  is  the  definition  of  all  the  commands  and 
--/  their  arguments.  This  is  done  in  two  steps: 

--/  1.  Define  a  process  for  the  command. 

--/  2.  Define  each  of  the  arguments  for  the  command. 

- 1  This  process  is  repeated  for  every  user  command  in  the  RTM. 

--/  The  commands  are  defined  in  alphabetical  order  for  ease 
--/  of  maintenance. 

-I 

-I . * . ”**’* . 

begin 

-  Identify  the  tool  being  created  to  the  parser  package,  this  isn't 

-  used  anywhere,  but  is  required  by  the  parser  package 

Si.Set_Too!_ldentifier  ("RTM"); 

-  Define  the  check  command  - 

Si.Define_Process  (Name  =>  Rtm_Command_Representation’lmage(Check), 
Help  =>  "See  RTM  User's  Manual", 

Proc  =>  Rtm_Commands(Check)); 

Sa.Define_Argument(Proc  =>  Rtm_Commands(Check), 

Name  •=>  "page", 

Default  ■=> 

Help  =>  "See  User’s  Manual"}; 

-  Define  the  edit  command  - 

Si.Define_Process  (Name  =>  Rtm_Command_Representation’lmage(Edit), 
Help  =>  "See  RTM  User’s  Manual", 

Proc  =>  Rtm_Commands(Edit)); 


-  Define  the  quit  command  - 

Si.Define_Process  (Name  =>  Rtm_Command_Representation’lmage(Quit), 
Heip  =>  "See  RTM  User's  Manual", 

Proc  =>  Rtm_Commands(Quit)); 


-  Define  the  read  command 

Si.Define_Process  (Name  ■>  Rtm_Command_Representation’lmage(Read), 
Help  ■>  "See  RTM  User's  Manual", 

Proc  «■>  Rtm_Commands(Read)); 

Sa.Define_Argument(Proc  «>  Rtm_Commands(Read), 

Name  ■=>  "name", 

Help  =>  "See  RTM  User’s  Manual"); 
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--  Define  the  set  command  - 

Si.Define_Process  (Name  =>  Rtm_Command_Representation'lmage(Set). 
Help  =>  "See  RTM  User's  Manual", 

Proc  =>  Rtm_Commands(Set)); 

Sa.Define_Argument(Proc  =>  Rtm_Commands(Set), 

Name  =>  "name", 

Help  =>  "See  RTM  User's  Manual"); 

Sa.Define_Argument(Proc  =>  Rtm_Commands(Set). 

Name  =>  "values", 

Help  =>  "See  RTM  User's  Manual"); 


--  Define  the  start  command  - 

Si.Define_Process  (Name  =>  Rlm_Command_Representation'lmage(Stari), 
Help  =>  "See  RTM  User’s  Manual", 

Proc  =>  Rtm_Commands(Start)); 

Sa.Define_Argument(Proc  =>  Rtm_Commands(Start), 

Name  =>  "page", 

Default  => 

Help  =>  "See  RTM  User's  Manual"); 

Sa.Define_Argument(Proc  =>  Rtm  Commands(Start), 

Name  =>  "update_rate", 

Default  =>  *2.0", 

Help  =>  "See  RTM  User's  Manual"); 

-  Define  the  stop  command  - 

Si.Define_Process  (Name  =>  Rtm_Command_Representation’lmage(Stop), 
Help  =>  "See  RTM  User  s  Manual", 

Proc  =>  Rtm_Commands(Stop)); 

Sa.Define_Argument(Proc  =>  Rtm_Commands(Stop), 

Name  =>  "page", 

Default  => 

Help  ■>  "See  RTM  User's  Manual"); 

end  Define_Rtm_Cli; 
pragma  page, 


with  Stnng_Pkg; 


--  Use  " string_type "  to  create  a  dynamic  length  for  interfacing  to 

-  the  RTMCIi. 

-  Use  "length"  and  "value"  to  convert  the  dynamic  strings  back  into 

-  normal  Ada  strings;  "length"  returns  the  number  of  characters  in 

-  a  dynamic  string,  and  "value"  returns  the  characters  in  the  string 

-  as  a  simple  Ada  string. 


separate  (Define_Rtm_Cli) 

procedure  Get_Argument  (Command:  in  Rtm_Command_Representation; 
Argument_Name:  in  String; 

Argument_Value:  in  out  String)  is 


-/  Description: 


Retrieve  an  argument  from  a  command  line  entered  by  the 
user.  If  the  user  defaults  an  argument,  then  the  default 
value  is  returned.  The  main  reason  for  the  existence  of  this 


--/  procedure  is  twofold: 


1.  To  convert  the  dynamic  strings  used  in  the  parser  to 
the  regular  strings  used  by  Ada. 

2.  To  blank  out  any  stray  characters  which  may  be  lingering 
in  the  argument_value  string. 


--/  Parameter  Description: 

--/  commands  The  command  that  the  user  entered  and  is  currently 
--/  being  processed. 

--/  argument_name  ->  The  name  of  the  argument  that  is  needed 
--/  in  the  command  line. 

--/  argument_value  ->  The  value  entered  by  the  user  or  the  default 
--/  value  for  the  argument. 

-I 

-I  Notes: 

--/  none 


package  Sp  renames  String_Pkg; 
lntertace_String:  Sp.String_Type; 


Blanks:  String(1..256)  :=  (1..256  =>  ’  ’); 

begin 

Argument_Value  :■  Blanks(Argument_Value'range ); 
lnterface_String  :=  Sa.Get_Argument(Proc  «>  Rtm_Commands(Command), 
Name  ■=>  Argument_Name); 

Argument_Value  (1..Sp.Length(lnterface_String))  := 
Sp.Vaiue(lnterface_String); 

exception 
when  others  «=> 

RAISE  ; 

end  Get_Argument; 
pragma  page; 
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separate  (Define_Rtm_Cli) 

procedure  C!ear_Command_Line  (Command:  in  Rtm_Command_Representation)  is 

. . 

--/  Description: 

--/  Used  to  reset  the  parser  after  a  command  had  been  parsed  and 
--/  processed. 

-I 

--/  Parameter  Description: 

--/  Command  ->  The  name  of  the  command  that  was  just  parsed  and 
--/  needs  to  be  reset 

_  . . . . . . . . . 

begin 

Si.Redefme_Process  (Proc  =>  Rtm_Commands(Command)); 
end  Clear_Command_Line; 
pragma  page: 
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--/ . 

--/  Module  Name: 

-j  Page_Processor 
--/ 

--/  Module  Type: 

--/  Package  Specification 

-I 

--/  Module  Purpose: 

--/  Processes  the  user  commands  which  affect  pages. 

--/  Module  Description: 

--/  Tft/'s  package  contains  the  interface  to  all  the  user  commands 
--/  (dealing  with  pages)  in  the  RTM  User's  Manual. 

-I 

~l  References: 

--/  Design  Documents: 

- 1  Real-  Time  Monitor  Requireme  nts 

--/  Real-Time  Monitor  Design 
”/ 

--/  User's  Manual: 

-/  RTM  User’s  Manual 

--/ 

--/  Testing  and  Validation: 

--/  none 
"/ 

--/  Notes: 

-/  none 

--/  Modification  History: 

--/  02Apr87  rivs  Created 

~l 

-/  Distribution  and  Copyright  Notice: 

-I  TBD 
“/ 

--/  Disclaimer: 

-I  This  work  was  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
~l  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

~l  the  Department  of  Defense,  or  the  U.S.  Government. " 

/ . . . 

package  Page_Processor  is 

pragma  page; 
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procedure  CneckPage; 

/ . 

--/  Description: 

--/  This  command  checks  a  page  for  consistency,  i.e.,  it  checks 
--/  a  page  's  vanabies  against  the  vanabie  database  to  insure 
--/  that  each  one  is  accessible  to  the  RTM. 

--/ 

--/  Parameter  Description: 

--/  none 

r . . 

pragma  page 
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procedure  Stop_Page; 

/ . * . . 

--/  Description: 

--/  Allows  the  user  to  terminate  use  of  a  page. 
-I 

--/  Parameter  Description: 

-I  none 

-I . 

pragma  page; 
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procedure  Update_Pages; 

/ . 

--/  Description: 

~l  This  entry  isused  by  the  monitor  to  update  any  pages  that 
--/  are  currently  active.  It  is  not  a  user  command. 

-I 

--/  Parameter  Description: 

--/  none 

-I . . . 

end  Page_Processor; 
pragma  page; 
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"/ . 

-/  Module  Name: 

--/  Page_Processor 

--/  Module  Type: 

--/  Package  Body 

-I 

--/ Module  Description: 

--/  7Vws  package  contains  the  interface  to  all  the  user  commands 
--/  (dealing  with  pages )  in  the  RTM  User's  Manual.  Due  to  the  nature 
--/  of  the  parser  used  in  the  RTM,  none  of  the  command  procedures 
--/  need  arguments  because  parser  software  internally  mantams  all 
--/  arguments  for  the  last  parsed  line.  This  package  also  defines 
--/  structures  needed  to  process  the  pages  (defined  below). 

-I 

--/  References: 

-/  Design  Documents: 

--/  Real-Time  Monitor  Requirements 
--/  Real-Time  Monitor  Design 

-I 

-I  User's  Manual: 

- 1  RTM  User's  Manual 

-I 

--/  Testing  and  Validation: 

--/  none 

•*/ 

--/  Notes: 

-/  none 
--/ 

--/  Modification  History: 

-j  16Apr87  rtvs  created 
--/ 

--/  Distribution  and  Copyright  Notice: 

-I  TBD 
”/ 

--/  Disclaimer: 

--/  TA)/s  tvoric  was  sponsored  by  the  Department  of  Defense. 

-/  The  views  and  conclusions  contained  in  this  document  are 
--/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied, 

-j  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  the  Department  of  Defense,  or  the  U.S.  Government.  ’ 

--! . * . 

pragma  page; 
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with  Calendar,  use  Calendar 

-  Use  type  ‘time" 

with  Diaiogue_Manager, 

--  Use  type  "variable  identifier’ 

with  Form  Executor 
--  Use  type  "form _ptr" 

with  Form  Wanager 

Use  types  "field_mcde".  "tieic  access"  and  "field_  length" 

with  Lists 

--  Use  generic  package  "lists" 

-  Use  type  * list ’ 

-  Use  service  "create" 

with  Textjo, 

-  Use  generic  package  "fixed jc" 

with  Define  Rtm  Ch.  use  Define  Rtm  Cli. 


package  Page_Processor  Is 

-•  Instantiate  fixed jo  for  use  in  converting  stnngs  to  type  duration 


package  Durationjo  Is  new  Textjo. Fixedjoi Duration); 

--  A  page  is  composed  of  page  information  and  vanabies  (aka  form 

-  field  names).  Processing  a  page  once  it  has  been 

-  activated  for  display  requires  that  the  RTM  know  the  name  of 

--  each  variable  on  the  page  The  information  needed  about  each 

-  vanable  on  a  page  is: 

vanable_name  ->  The  name  of  the  vanable,  which  corresponds 
to  the  name  of  a  field  on  the  form  representation 
of  the  page  where  the  data  are  to  be  displayed, 
vid  ->  A  pointer  into  the  vanaoie  database,  where  all  the  known 
data  on  the  variable  are  kept. 

displayjength  ->  The  size  of  the  ouput  field  (on  the  form)  for 
this  var,..ble. 

subtype  Vaiiabie_Name_Representation  Is  String(1..B0); 
type  Page_Fieid_Representation  Is  record 

Variable_Name:  Variabie_Name_Representation; 

Vid:  Dialogue_Manager. Variable Jdentifier, 

Display_Lengtri:  Integer; 
end  record  ; 

--  A  page  is  composed  of  miscellaneous  page  data: 

the _page  ■>  A  pointer  to  the  form  representation  of 
the  page.  This  is  used  by  the  form_executor 
system  when  updating  and  displaying  the  page. 
page_name  ->  The  user's  name  for  the  page 
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next_update_time  ■>  The  time  when  the  page  is  to  be  refreshed 
on  the  output  device. 

refresh_rate  ->  The  rate  at  which  the  page  is  to  be  refreshed 

-  After  the  page  data  comes  the  data  about  each  of  the  variables  on  the 

-  page  (documented  above).  Since  the  number  of  vanables  on  a  page  is 

-  vanabie.  a  linked  list  is  used  to  tie  them  all  together  for  each 

-  page 

page_fields  >  The  linked  list  of  all  the  legal  vanables  on  the 
page. 


package  F ieid_Lists  Is  new  Lists  (Page_Fieid_Representation), 
subtype  Page_Name_Representation  is  String(1 .  80) , 
type  Page  Representation  Is  record 
The_Page:  Form_Executor.Form_Ptr; 

Page_Name:  Page_Name_Representation; 

Next_Update_Time  Calendar. Time; 

Refresh_Rate  Duration, 

Page_Fields  Field_Lists.List  :=  Fie!d_Lists. Create; 

end  record  ; 

-  For  each  active  page,  there  is  one  page_representation  record  All  the 

-  active  pages  are  kept  m  an  a  nay  and  added  and  deleted  according  to 

-  page  counts  shown  below 

Maximum_Number_Of_Active_Pages  constant  Integer  ;=  2; 
Cunent_Number_0‘_Acfive_Pages  Integer  :=  0; 

Active_Page:  array  (1  Maximum_Number_Ot_Active_Pages)  of  Page_Representation; 


pragma  page, 
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-  Internal  procedures 

procedure  Get_Fieids  (Fieid  Poinier;  In  Form_Manager.Field_Access; 

The_Variable_Name  In  out  Variable_Name_Representation: 
The_Mode:  In  out  Form_Manager.Field_Mode; 

Tbe_Length:  in  out  Form_Manager.Field_Length)  is 

separate  ; 

function  Setup_Page  (The_Page:  in  String; 

Collection_Rate  in  Duration) 
return  integer  is  separate 

-  Visible  procedures 

procedure  Check  Page  is  separate  ; 
procedure  Update_Pages  is  separate  ; 
procedure  Start  Page  Is  separate  ; 
procedure  Stop_Page  is  separate  ; 

end  Page_Processor; 
pragma  page, 
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with  Vanable_Database; 

-  Use  the  type  "the_variable". 

-  Use  the  service  "find". 

with  Rtm_Form;  use  Rtm_Form; 

--  Use  the  service  "put_rtm_field". 

with  Form_Manager;  use  Form_Manager; 

-  Use  the  types  "form_access",  "field_access",  * fieldjength ’ 

-  and  "field_mode". 

-  Use  the  exception  "field_not_found". 

-  Use  the  services  "Get_first_field",  "Get_nexi_field"  and  "modifyjield". 

with  Form_Executor; 

--  Use  the  services  "accessjorm"  and  "modify_field". 

-  Use  the  exception  "form_access_error". 

with  Dialogue_Manager; 

--  Use  the  type  "variablejdentifier". 

-  Use  the  exception  "variable_not_1ound". 

-  Use  the  service  ' getjdentifier ’. 

separate  (Page_Processor) 
procedure  Check_Page  is 

-I . * . * . 

--/  Description: 

--/  This  command  checks  a  page  for  consistency,  i.e.,  it  checks 
--/  a  page's  variables  against  the  variable  database  to  insure 
--/  that  each  one  is  accessible  to  the  RTM. 

**/ 

--/  The  functioning  of  this  module  is  very  similar  to  Setup _page. 

--/  The  main  difference  is  that  this  module  doesn’t  build  the 
-/  actual  list  of  variables ;  it  simply  checks  the  field_mode 
--/  and  existence  of  each  variable,  giving  the  user  error  messages 
--/  where  appropnate. 

*'/ 

-/  Parameter  Description: 

--/  none 

~l 

~j  Notes: 

~l  1.  All  the  arguments  are  obtained  from  the  parser  when  needed. 

~l 

-/  2.  The  exception  form_manager.fie!d_notJound  is  raised 
-/  by  the  form_manager  when  the  end  of  the  form  is  reached. 

--/  This  kicks  the  module  out  of  the  loop  which  builds  the  variable 
~l  list  for  the  page  and  is  the  normal  exit  point  for  the 
--/  module. 

**/ 

-/  3.  The  exception  1orm_executor.form_access_error  is  raised 
~l  when  the  form_manager  cannot  access  the  user-requested 
--/  page.  It  is  propagated  out  to  the  caller  to  indicate 
-I  a  bad  page. 
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package  Cli  renames  Define_Rtm_Cli; 

The_Variable_Name:  Variable_Name_Representation; 

The_Working_Page:  Page_Name_Representation; 

A_Variable:  Variable_Database.The_Variable; 

The_Page:  Form_Manager.Form_Access; 

Error_Count:  Integer  :=  0; 

--  declarations  needed  to  access  the  data  in  the  form_manager 
Field_Pointer:  Form_Manager.Fieid_Access; 

The_Length:  Form_Manager.Field_Length  :=  1; 

The_Mode:  Form_Manager.Field_Mode  :=  Constant_Text; 

begin 

Cli.Get_Argument  (Command  =>  Cli. Check, 

Argument_Name  =>  'page', 

Argument_Value  =>  The_Working_Page); 

The_Page  :=  Form_Executor.Access_Form  (Pathname  =>  The_Working_Page) 

-  Now  we  loop  through  all  the  fields  defined  for  the  page,  obtaining 

-  the  variable  name  and  format  length  from  the  form_manager,  and 

-  the  variable Jdentifier  from  the  vahable_database, 

-  as  if  we  were  building  the  page  definition. 

Field_Pointer  :=  Form_Manager.Get_First_Field(The_Page); 

loop 

begin 

Get_Fields  (Field_Pointer,  The_Variable_Name, 

The_Mode,  The_length); 
case  The_Mode  Is 
when  Constant_Text  => 
null  ; 

when  lnput_Output  => 

Put_Rtm_Field  (Message_Field_A, 

“illegal  mode  for  variable: "  & 

The_Variabie_Name); 

Error_Count  :=  Error_Count  +  1 ; 
when  Output_Only  => 

A_Variable  :=  Variable_Database.Find 
(Name  =>  The_Variable_Name); 
end  case ; 
exception 

when  Variable_Database.Variable_Not_Found  => 

Put_Rtm_Field  (Message_Field_A, 

“Variable  notjound:  *  &  The_Variable_Name); 

Error_Count Error_Count  +  1 ; 

when  others  ->  -d 

Put_Rtm_Field  (Message_Field_B, “exception  raised  in  check...’); 

end  ; 

Field_Pointer  >  Form_Manager.Get_Next_Field(Field_Pointer); 

end  loop  ; 
exception 

when  Form_Manager.Field_Not_Found  ®> 

Put_Rtm_Fieid  (Message_Fieid_B, “Check  completed  with  "  & 


lnteger'lmage(Error_Count)  & 

’  errors'); 

when  Form_Executor.Form_Access_Error  => 

Put_Rtm_Fieid  (Message_Field_A,  'Error  in  accessing  page:  "  & 
The_Working_Page), 

end  Check_Page; 
pragma  page; 
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with  Rtm  Form.  use  Rtm_Form. 

-  Use  the  service  " put_rtm_field " 

separate  (Page_Processor) 
procedure  Start  Page  Is 

••/ . . . . . 

--/  Description: 

- 1  Allows  the  user  to  select  a  page  for  display  or  history 
-I  collection  at  a  periodic  update  rate  The  processing  is: 

--/  1.  Get  the  command  arguments. 

-j  2.  Set  up  the  page  definition. 

3  Set  up  the  input  mode. 

Parameter  Description: 

--/  none 
— ! 

--/  Notes: 

•  -/  J.  All  command  arguments  are  obtained  from  the  parser  as  needed 

--/  2.  The  exceptions  form_executor.invahd_form  and 
- 1  form_executor.  torm_access_error  are  raised  by  Setup _page. 

--/  and  indicate  that  a  bad  page  was  specified  by  the  user 

..  r* . . . . . . . 

J 

package  Cli  renames  Define_Rtm_Cii; 

End_CM_Vaiue:  Integer. 

Collection_Rate:  Duration; 

Field_Position:  F*eld_Usts. Listiter , 

The_Page_Fields:  Page_Fieid_ReDresentation. 

Update_Rate  String  (1..80); 

Page_Name:  Page_Name_Representation; 

Current_T'me:  Calendar. Time  :=  Caiendar.CiocK; 

Page_Number:  Integer; 

begin 

case  Current_Number_Ot_Active_Pages  Is 

-  If  we  re  at  the  active  page  limit,  issue  an  error  message. 

when  Maximum_Number_Of_Active_Pages  => 

Put_Rtm_Field  (Message_Field_A, 

"Maximum  number  of  active  pages  already  in  use"), 
Put_Rtm_Field  (Message_Field_B, 

"a  Stop  command  must  be  issued  first"); 

-  If  we  have  more  active  pages  available  yet,  then  let  the  user  start 

-  another  one. 

when  others  »> 

--  Get  the  Start  command  arguments  entered  by  the  user  and  build  internal 

-  page  definition. 

Cli.Get_Argument  (Command  «=>  Cli. Start, 
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Argument_Name  =>  “page", 

Argument_Value  =>  Page_Name); 

Cli.Get  Argument  (Command  =>  Cli. Start, 

Argument_Name  =>  “update_rate", 

Argument_Value  =>  Update_Rate); 

DurationJo.Get  (From  =>  Update_Ra!e, 

Item  =>  Collection_Rate, 

Last  =>  End_Of_Value); 

—d 

-d  coliection__rate  :=  duration(lnteger'value(update_rate)). 

-d 

Page_Number  =  Setup_Page  (Page_!Mame,Coilection_Rate): 
Active_Page(Page_Number).Refresh_Rate  :=  Coliection_Rate. 
Active_Page(Page_Number).Next_Update_Time  := 

Current_Time; 

-  Since  we're  starling  a  page,  put  the  user  input  mode  into 

-  SCREEN^MODE,  which  allows  the  screen  to  be  updated  asynchronous iy 

-  from  user  input. 

Rtm_Form.SetJnput_Mode  (Rtm_Form  Screen_Mode); 

end  case ; 
exception 

when  Text_lo.Data_Error=> 

Put_Rtm_Fieid  (Message_Field_A. 

“Bad  update_rate.  reenter  in  x  xx  format';, 
when  Form_Executor.lnvalid_Form 

Form_Executor.Form_Access_Error  => 
null  ; 

end  Start  Page; 
pragma  page; 
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with  Case_lnsensitive_String_Companson, 

-  Use  the  service  "equal". 

with  TerminaMnterface; 

-  Use  the  service  "clear_screen" 

with  FUm_Form;  use  Rtm_Form. 

-  Use  the  service  "put_rtm_field". 

separate  (Page_Processor) 
procedure  Stop  page  is 

-I . * . . . . . 

--/  Description: 

-/  Allows  the  user  to  terminate  use  of  a  page.  The  processing 
-I  is: 

-/  1.  Search  the  array  of  active  pages  for  the  user-specified 

-I  page. 

-I  2.  if  it's  not  found,  then  issue  an  error  message. 

--/  3.  Otherwise, 

--/  a.  loop  thru  all  the  vahables  on  the  page 

--/  b.  deactivate  each  one  (i.e.,  remove  them  from 

--/  the  list  of  vahables  on  which  data  is  collected). 

--/  c.  destroy  the  page  definition. 

-•/ 

--/  Parameter  Description: 

--/  none 

-I 

--/  Notes: 

--/  7.  All  command  arguments  are  obtained  from  the  parser  as  needed. 

-I 

--/  2.  Page_mismatch  error  renames  constraint  error;  this  is  used 
--/  when  searching  the  active  page  array  for  the  page  to  stop. 

--/  The  constraint_error  is  raised  when  the  loop  exceeds  the 
--/  dimension  of  the  array,  which  says  that  no  active  page 
--/  matches  the  page  which  the  user  wishes  to  stop,  i.e., 

--/  a  "page_mismatch". 

-I . . 

package  Cisc  renames  CaseJnsensitive_String_Comparison; 

package  Cli  renames  Define_Fttm_Cli; 

Field_Position:  Field_Lists.Listiter; 

Page_To_Stop:  Page_Name_Representation; 

The_Page_Fields:  Page_Field_Representation; 

Page_Number:  Integer  :=  1; 

Usage:  Dialogue_Manager.lo_Usage  :=  Dialogue_Manager.Read; 
Page_Mismatch:  exception  renames  Constraint_Error; 

begin 

case  Current_Number_Of_Active_Pages  Is 

-  When  there  are  no  pages  active,  then  there’s  nothing  to  do  but 

-  inform  the  user. 


*>/ 


when  0  => 

Put_Rtm_Field  (Message_Field_A,’no  active  pages  to  stop"); 

when  others  => 

-  Get  the  name  of  the  page  to  stop,  and  compare  it  against  the  current 

-  active  pages;  if  there's  no  match,  issue  an  error  message  (a  constraint 

-  error  is  raised  when  we  reach  the  end  of  the  array),  which  we  have 

-  conveniently  renamed  as  a  page_mismatch  exception. 

Cli.Get_Argument  (Command  =>  Cli.Stop, 

Argument_Name  =>  "page", 

Argument_Value  =>  Page_To_Stop); 

while  not  Cisc.Equal(Active_Page(Page_Number).Page_Name,Page_To_Stop) 

loop 

Page_Number  :=  Page_Number  +  1; 

end  loop  ; 

-  If  everything  is  correct,  then  we  iterate  through  the  active  variables 

-  for  the  current  page,  deactivating  them  in  the  process. 

Field_Position  :=  Field_Lists.Makelistiter( 

Active_Page(Page_Number).Page_Fields); 
while  Field_Lists.More(Field_Position)  loop 

Field_Lists.Next(Field_Position,The__Page_Fields); 

Diaiogue_Manager. Deactivate  (TheJ3age_Fields.Vid,  Usage); 

end  loop  ; 

-  When  all  the  vanables  are  deactived,  we  destroy  the  active  page  data. 

-  since  we  just  deactivated. 

Active_Page(Page_Number)  Page_Name  (1  ..10)  :*  * 

Field JJsts. Destroy (Active_Page(Page_Number)  Page  Fieids). 
Form_Executor.Reiease_Form 

(Form  =>  Active_Page(Page_Number)  The  Page); 

T  erminal  Jnterface.  Ciear_Screen , 

-  Move  the  reset  of  active  pages  into  the  space  just  vacated  by  the 

-  deletion  from  the  active  page  list 

for  New_Page_Number  In  Page_Number  Current  Numbe'  O'  Active  paoe$  ■ 

loop 

Active_Page(New_Page_Number  »  Active  PageiNe*  page-  Num oe'-’ 

end  loop  , 

Current_Number_0‘_Active_Pages  .Current  Numbe'  ?  Actr.e  ' 

It  Current_Number_Of_Active  Pages  «  C  then 

Fttm_Form  Set_lnput_Mode  I  Rim  Form  Command  Moo** 

end  It ; 
end  case  , 
exception 

--  Handle  the  error  that  occurs  when  the  use'  mes  tc  < roc  a  oao  ■*’ 

--  isn’t  active  at  the  moment 
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when  Page_Mismatch  => 

Put_Rtm_Field  (Message_Fieid_A, 

"Page  not  currently  active:  ’  &  Page_To_Stop); 

when  others  => 
null  ; 


end  Stop_Page; 
pragma  page; 
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separate  (Page_Processor) 
procedure  Update_Pages  is 

--/ . . . 

-I  Description: 

--/  This  entry  is  used  by  the  monitor  to  update  any  pages 
--/  which  are  currently  active.  The  basic  functioning  is 
--/  straightforward: 

-j  1.  Loop  thru  all  the  currently  active  pages: 

--/  a.  if  the  current  time  is  greater  than  the  next 
--/  scheduled  update  time  for  the  variable, 

--/  -  loop  through  all  the  variables  on  the  page 

--/  -  place  the  current  value  of  each  into 

--/  its  field  on  the  page 

--/  b.  end  van  able  loop 

--/  c.  display  the  page  to  the  user 

--/  2.  End  active  page  loop. 

-I 

--/  Parameter  Description: 

--/  none 
-I 

-I  Notes: 

--/  The  collection  of  data  is  proceeding  in  parallel  with  the 
--/  page  update  operations  performed  by  this  module. 

--/ . . . 

package  Cli  renames  Define_Rtm_Cli; 

Field_Posrtion:  Field_Lists.Listiter; 

The_Page_Fields:  Page_Field_Representation; 

The_Value:  Dialogue_Manager.Value_String; 

Update_Rate:  String  (1..80); 

Page_Number:  Integer  :=  1 ; 

CurTent_Time:  Calendar.Time; 

begin 

case  Current_Number_Of_Adive_Pages  Is 
when  0  => 
null  ; 

when  others  => 

while  Page_Number  <=  Current_Number_Of_Active_Pages  loop 

-  Determine  if  it's  time  to  update  this  page  on  the  display. 

Current_Time  :=  Calendar.Clock; 

It  Current_Time  >=  Active_Page(Page_Number).Next_Update_Time  then 

-  If  the  time  is  right,  then  we  create  a  list  iterator, 

Field_Position  >  Field_Lists.Makelistiter( 

Active_Page(Page_Number).Page_Fields); 

--  and  iterate  over  all  the  variables  on  the  current  active  page. 

-  extracting  the  value  from  the  dialogue_manager  and  updating 

-  the  values  in  the  page's  internal  form  representaiton. 
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while  Field_Lists.More(Field_Posilion)  loop 

Field_Usts.Next(Fieid_Position,The_Page_Fields); 

The_Value  :=  Dialogue_Manager.Get_Value  ( 

The_Page_Fields.Vid, 

The_Page_Fields.Display_Length); 
Form_Executor.Modify_Field  ( 

Form  =>  Active_Page(Page_Number).The_Page 
Field  =>  The_Page_Fields.Variable_Name, 

Value  =>  The_Va!ue(1  ..The_Page_Fields.Display_Length)), 
end  loop  ; 

Form_Executor.Present_Form  (Active_Page(Page_Number).Tne_Page), 
Active_Page(Page_Number).Next_Update_Time  :=  Current_Time  + 
Active_Page(Page_Number).Refresn_Rate; 

end  If ; 

Page_Number  :=  Page_Number  +  1; 

end  loop  ; 
end  case  ; 
exception 
when  others  => 
null ; 

end  Update_Pages; 
pragma  page; 
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wJlh  Form_Manager,  use  Form_Manager ; 

-  Use  the  types  "field_  name ",  "field_mode",  "heldjength", 

"fie!d_name".  "field _position",  "field_renditions",  "chartype", 
"field_value ' 

-  l/se  the  service  "get_field_info". 


separate  (Page_Processor) 

procedure  Get_Fields  (Field_Pointer:  in  Form_Manager.Fieid_Access, 

The_Variable_Name:  in  out  Variable_Name_Representation 
The_Mode:  in  out  Form_Manager.Field_Mode; 

The_Lenglh:  in  out  Form_Manager.Field_Length)  is 

--/ .  ‘ 

--/  Description: 

~l  This  routine  allows  the  caller  to  get  only  the  relevant  data 

--/  from  the  form_manager's  definition  of  a  page,  since 

--/  not  all  the  data  which  the  form_manager  provides  are  used. 

--/  It  also  does  conversion'deanup  work  on  the  data. 

--/ 

--/  The  basic  operation  of  this  module  is: 

--/  1.  Use  the  forms  management  subsystem  to  get  all  the  data 

--/  about  the  desired  field. 

--/  2.  Blank  out  any  garbage  in  the  variable  name 

-/  3.  Return  the  data  to  the  caller. 

"I 

--/  Parameter  Description: 

--/  field _pomter  ->  The  pointer  to  fieid  about  which  the 
--/  information  is  needed  It  is  the  job 

- 1  of  the  caller  to  determine  which  field 

--/  is  of  interest. 

--/  the_vanable_name  •>  The  variable  name  found  in  the  field 
--/  (to  the  form_manager,  it  is  the  name  of  the 

--/  field;  to  the  RTM,  n  is  the  vanable  name). 

--/  the_mode  ->  The  I/O  mode  of  the  variable: 

-/  INPUT_OUTPUT  or  OUTPUT_ONL  Y 

-/  thejength  ->  The  number  of  characters  allowed  on  the  form 
~l  for  displaying  the  data  of  the  vanable. 

-I  Notes: 

--/  none 

-I . 

Blanks:  Variable_Name_Representa!ion  >  (others  «>  ’  ’); 

-  Declarations  needed  to  access  the  data  in  the  form_manager: 
The_Field_Name:  Form_Manager.Field_Name; 

The_Location:  Form_Manager.Field_Position; 

The_Rendition:  Form_Manager.Fieid_Renditions; 

TheJJmits:  Form_Manager.Char_Type; 

The_lnitiai_Value:  Form_Manager.Fieid_Value; 

The_Current_Value:  Form_Manager.Field_Value; 


begin 

--  Get  all  the  information  for  the  next  field  on  the  page  from  the 


--  form  manager. 

Form  Manager  Get  FieldJnfo  ( 

Field  =>  Fieid_Pointer, 

Name  =>  The__Fieid_Name 
Position  =>  The_Location. 

Length  =>  The_Length, 

Rendition  =>  The_Rendition, 

Char_Limits  =>  The_Limits, 
lmt_Value  =>  The_lnitial_Vaiue. 

Value  =>  Tne_Current_Value, 

Mode  =>  Tne_Mode), 

--  Clean  up  the  variable  name  so  that  there 's  no  garbage  vanable  name 
-  we  return  to  the  caller. 

The_Variabie_Name  .=  Blanks; 

The_Variable_Name(1..The_Fieid_Name’l_act)  The_Fieid_Name; 

end  Get_Fields; 
pragma  page; 
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with  Variabie_Database. 

--  Use  the  type  "the_vanabie". 

--  Use  the  exception  "vanable_not_(ound' 

-■  Use  the  service  "find" 

with  Rtm  Form,  use  Rtm  Fonm, 

--  Use  the  service  * put_rtm_field 

with  Form  Manager;  use  Form  Manager 

-  Use  the  types  "form_access",  " fieid_access * hetdjength " 

--  and  "field_mode". 

--  Use  the  exception  "feld_not_foundr 

-  Use  the  services  "Get_first_field',  "Ge:_next_field"  and  “modify_fieid< 
with  Form_Executor; 

--  Use  the  services  "access_form"  anc  ’ modify_field 
--  Use  the  exception  " 1orm_access_error ' 

with  Dialogue_Manager; 

--  Use  the  type  "vanablejdentifer"  and  mic_usage". 

-■  Use  the  exception  " vanable_not_found ' 

--  Use  the  service  'activate' 

separate  (Page_Processor) 

function  Setup_Page  (The_Page  In  String, 

Coiiection_Rate  In  Duration'  return  Integer  is 


--/  Description: 

--/  This  module  takes  a  page  name  and  uses  services  from  the 
~  form^manager  to  build  the  internal  representation  of  a  page. 

i 

The  processing  performed  by  this  module  is: 

1.  Check  to  see  that  the  page  exits,  and  if  not. 
issue  an  error  to  the  user  and  exception  out. 

-j  2.  When  the  page  exists,  the  mooule  loops  through 
--/  all  the  fields  on  the  form,  building  the  list 
--/  of  page  vanables  from  the  INPUT_OUTPUT  and 
-/  OUTPUT_ONL  Y  fields  and  activating  the  variables 
--/  for  data  collection. 

-•/ 

--/  Parameter  Description: 

--/  the _page  ->  The  user’s  name  for  the  page  to  be  invoked. 

--/  return  ->  The  index  into  the  active  page  array  where  the 
-  /  page  definition  has  been  built. 

-I 

--/  Notes: 

--/  1.  The  exception  form_manager.field_not_found  is  raised 
--/  by  the  torm_manager  when  the  end  of  the  form  is  reached. 
-/  This  kicks  the  module  out  of  loop  which  builds  the  variable 
-j  list  for  the  page,  and  is  the  normal  exit  point  for  the 
--/  module. 

--/  2.  The  exception  form_executor.form_access_error  is  raised 
--/  when  the  forms  management  subsystem  cannot  access  the 
-/  user-requested  page.  It  is  propagated  out  to  the  caller 
--/  to  indicate  a  bad  page. 
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package  Cli  renames  Define_Fltm_Cli; 

Current_Time:  Calendar. Time  :=  Calendar.Clock; 
Page_Number.  Integer; 

A_Variable :  Variable_Database ,The_Variab le; 
Active_Variable:  Dialogue_Manager.Variable_ldentifier, 
T emporary_Form :  Form_Manager. Form_Access ; 
The_Variable_Name:  Variable_Name_Representation; 


-  Declarations  needed  to  access  the  data  in  the  form_manager: 

Field_Pointer;  Form_Manager.Field_Access; 

The_Length:  Form_Manager.Field_Length  :=  1; 

The_Mode:  Form_Manager.Field_Mode  :=  Constant_Text; 

begin 

--  Set  up  an  active  page  definition  for  the  page  selected  by  the  user. 

1.  Load  the  form  defintion  for  the  page  selected  by  the  user. 

2.  Increment  the  count  of  the  number  of  active  pages. 

3.  Store  the  pointer  to  the  form  definition  and  the  name  of  the  page. 

Temporary_Form  :=  Form_Executor.Access_Form  (Pathname  =>The_Page); 
Current_Number_Of_Active_Pages  :=  Current_Number_Of_Active_Pages  +  1 ; 
Page_Number  :=  Current_Number_Of_Active_Pages; 
Active_Page(Page_Number).The_Page  :=  Temporary  Form; 
Active_Page(Page_Number).Page_Name  :*  The_Page; 

-  Once  all  the  form  level  items  are  set  up, 

-  we  loop  through  all  the  fields  defined  for  the  form/page,  obtaining 

-  the  variable  name  and  format  length  from  the  form_manager,  and 

-  the  vahablejdentifier  from  the  variable_database;  using  this,  we 

-  activate  the  variable  for  data  collection  and  build  the  page  field 

-  definition  by  creating  a  list  of 

-  ( vahable_name ,  vanable_identifier,  format  length)  records. 


Field_Pointer  :=  Form_Manager.Get_First_Field 

(Active_Page(Page_Number).The_Page); 

loop 

begin 

Get_Fields  (Fieid_Pointer,  The_Variable_Name, 
The_Mode,  The_Length); 
case  The_Mode  Is 

Constantjext  fields  are  trim  items  on  the  form  and 
not  of  interest  to  the  RTM. 

when  Constant_Text  «> 
null ; 


lnpu1_output  fields  contain  variables  of  interest,  but  were 
entered  mappropnately  by  the  user,  so  we  change  the  mode  and 


use  the  fields  appropriately. 
when  lnput_Output  => 

Form_Manager. Modify  _Field_Mode  (Field  =>  Field_Pointer, 
Mode  =>  Output_Only); 

A_Variabie  :=  Variable_Database.Find 
(Name  =>  The_Variable_Name); 

Active_Vanable  :=  Diaiogue_Manager. Activate 
(The_Variable_Name, 

Collection_Rate, 

Current_Time. 

Diaiogue_Manager.Read); 

Field_Lists. Attach  (Active_Page(Page_Number).Page_Fields. 
(Variable_Name  =>  The_Variabie_Name, 

Vid  =>  Active_Variable, 

Dispiay_Length  =>  The_Length)); 

These  fields  also  contain  variables  of  interest  to  the  user, 
but  are  a  little  simpler,  since  they  are  already  in  the 
proper  mode. 

when  Output_Only  => 

A_Variable  :=  Variable_Database.Find 
(Name  =>  The_Variable_Name) ; 

Active_Variable  :=  Dialogue_Manager.Activate 
(The_Variable_Name, 

Collecfion_Rate, 

Currenl_Time, 

Diaiogue_Manager.Read) ; 

Field_Usts. Attach  (Active_Page(Page_Number).Page_Fields, 
(Variable_Name  =>  The_Variable_Name, 

Vid  =>  Active_Variable, 

Dispiay_Length  =>  The_Length)); 

end  case  , 
exception 

when  Variabie_Database.Variable_Not_Found  I 
Dialogue_Manager.Variable_Not_Found  => 
Form_Executor.Modify_Field 

(Form  =>  Active_Page(Page_Number).The_Page, 

Field  »>  The_Variab!e_Name, 

Value  =>  ’error . ’); 

Put_Rtm_Field  (Message_Fieid_A,  'Variable  not  found: "  & 
The_Variable_Name); 
when  others  =>  -debug 

Put_Rtm_Fieid  (Message_Field_B,“exception  raised  in  setup...'); 

end  ; 

Field_Pointer  >  Form_Manager.Get_Next_Field(Field_Pointer); 

end  loop  ; 
exception 

-  When  the  form_manager  runs  out  of  fields,  the  end  of  the  form  is  reached , 

-  this  is  the  normal  exit  point  for  the  module. 

when  Form_Manager.Field_Not_Found  => 

RETURN  Page_Number, 
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when  Form_Executor.Form_Access_Error  => 
Put_Rtm_Field  (Message_Field_A, 

’Error  in  accessing  page: "  &  The_Page); 

RAISE  ; 

end  Setup_Page; 
pragma  page; 
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-/  Module  Name: 

-/  Pa  rameier_  Manager 

■/ 

-/  Module  Type: 

-I  Package  Specification 

~! 

-j  Module  Purpose: 

-/  Manages  the  reading  and  writing  of  single  Ada  variables 
-  /  independently  of  displaying  pages. 

I  Module  Description: 

-/  77)/s  package  manages  the  reading  and  writing  of  single  Ada 

- 1  variables  without  interfering  with  active  display  pages. 

~1 

-/  References: 

-/  Design  Documents: 

-/  Real-Time  Monitor  Requirements 
- 1  Real-Time  Monitor  Design 

-/ 

-I  User’s  Manual: 

-j  RTM  User’s  Manual 

-/  Testing  and  Validation: 

-I  none 

-/ 

-/  Notes: 

-I  none 

--/  Modification  History: 

--/  08Apr87  rtvs  Created 
--/ 

--/  Distribution  and  Copyright  Notice: 

-I  TBD 
"/ 

--/  Disclaimer: 

--/  Trt/s  wortT  was  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
--/  so/e/y  fftose  of  ffte  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

-I  the  Department  of  Defense,  or  the  U.S.  Government. " 

^  j •*♦**•* 

pragma  page; 
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package  Parameter_Manager  is 
procedure  Read; 

--/ . . . 

-/  Description: 

--/  Extracts  the  value  of  a  variable  from  application  memory 
--/ 

--/  Parameter  Description: 

--/  none 

-r . . . 

pragma  page; 
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procedure  Set 


-  /  Description: 

-I  Deposits  tne  user-supplied  value  into  application  memory. 
_ / 

--/  Parameter  Description: 

--i  none 


end  Parameter_Manager; 

pragma  page 
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--/ . * . 

--/  Module  Name: 

--/  Parameter_manager; 

-I 

--/  Module  Type: 

--/  Package  Body 
-I 

--/  Module  Description: 

--/  777/s  package  implements  two  commands: 

--/ 

--/  Head  (name  =>  <variable>): 

--/  Sef  ('name  =>  <vahable>,  value  =>  <  >); 

-/  me  package  does  very  little  except  group  the  single  variable 
--/  operations  together. 

-I 

--/  References: 

--/  Design  Documents: 

-/  Real-Time  Monitor  Requirements 
--/  Real-Time  Monitor  Design 
-I 

--/  User’s  Manual: 

--/  RTM  User’s  Manual 

-I 

-/  Testing  and  Validation: 

--/  none 

--/ 

-I  Notes: 

--/  none 

--/  Modification  History: 

--/  30Apr87  rtvs  created 
-*/ 

-/  Distribution  and  Copyright  Notice: 

-I  TBD 

-I 

--/  Disclaimer: 

-*/  Th/s  wohf  was  sponsored  by  the  Department  of  Defense. 

-/  The  w'ews  and  conclusions  contained  in  this  document  are 
--/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied. 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  fhe  Department  of  Defense,  or  the  U.S.  Government. " 

/ . . . 

pragma  page; 
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package  ParameterManager  Is 
--  Internal  procedures 

function  Left  Justify  (Disoiay  Vaiue  In  String: 

return  String  is  separate  , 

-  Visible  procedures 

procedure  Read  is  separate 
procedure  Set  is  separate 

end  Parameter_Manager. 
pragma  page. 
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with  Diaiogue  Manager 

Use  the  types  "variable^iaentifier"  and  "value_  string" 

-  Use  the  services  "activate",  "geivalue".  "getjdentifier" and 
•-  ‘ deactivate ' 

with  Define  Rtrn  Cu, 

-•  Use  the  service  "get_argumen!" 

with  Rtm  Form  use  Rtm  Form 
--  Use  the  service  "put_rtm_fieid" 

with  Calendar  use  Calendar 
•  Use  the  type  "time". 

--  Use  the  service  "deck". 


separate  (Parameter_Manager) 
procedure  Read  Is 

--  /  Description: 

- '  Extracts  the  value  of  a  vanabie  from  application  memory. 

-  The  processing  involved  is  straightforward 

t.  Get  the  vanabie  to  be  read  from  the  user's 
command  line. 

2  if  the  vanabie  is  not  in  the  database,  then 
--/  issue  an  error  message  and  get  out. 

3  Otherwise, 

--/  a  activate  the  vanabie  for  input, 

-/  b  read  the  value  , 

--/  c  display  the  value  to  the  user. 

--/  d  and  deactivate  the  vanabie  (since  we  re  finished  with  it). 

"I 

--/  Parameter  Description: 

-j  none 

-I 

-I  Notes: 

- i  none 

-I . 

package  Cli  renames  Define_Rtm_cii, 

The_Variabie  Diaiogue_Manager  Variabiejdentifier, 

The_Vaiue:  Diaiogue_Manager  Vaiue_Stnng; 

Vanabie_Name  Stnng  (1  80). 

Current_Time:  Calendar  Time  «  Clock, 

begin 

--  Get  the  vanabie  name  and  venfy  that  it's  legal 

Cli  Get_Argument  (Command  •>  Cli  Read, 

Argument_Name  «>  ‘name’, 

Argument_Value  «>  Vanabie_Name), 

--  Activate  the  vanabie,  extract  the  data,  and  display  it  to  the  user 


The_Variab!e  :=  Dialogue_Manager. Activate 
(Name  =>  Variable_Name, 

Usage  =>  Dialogue_Manager.Read, 

Starting_Time  =>  Currenl_Time, 

Rate  =>  0  0); 

The_Value  :=  Left_Justify(Dialogue_Manager.Get_Value  (Vid=>The_Variable)); 
Put_Rtm_Field  (Field  =>  Message_Field_A, 

Field_Value  =>  "Variable  : "  &  Variable_Name); 

Put_Rtm_Field  (Field  =>  Message_Fieid_B. 

Field_Value  =>  "has  the  value: "  &  The_Value); 

Dialogue_Manager.  Deactivate  (Vid  =>  The_Variable, 

Usage  =>  Dialogue_Manager.Read); 

exception 

when  Dialogue_Manager.Variable_Not_Found  => 

Put_Rtm_Field  (Field  =>  Message_Field_A, 

Field_Value  =>  "Variable  not  Found: "  &  Variable_Name); 

when  others  => 

Put_Rtm_Field  (Field  =>  Message_Field_A, 

Field_Value  =>  "Unhandled  exception  in  param_man"); 

end  Read; 
pragma  page; 
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with  Dialogue_Manager; 

-  Use  the  types  " variablejdentifier "  and  °value_ string". 

-  Use  the  services  "activate",  "get_value",  "getjdentifier" and 

-  " deactivate 

with  Define_Rtm_Cli; 

-  Use  the  service  "get_argument". 

with  Rtm_Form;  use  Rtm_Form; 

-  Use  the  service  "put_rtm_field". 

with  Calendar;  use  Calendar; 

--  Use  the  type  "time". 

-  Use  the  sen/ice  "clock". 


separate  (Parameter_Manager) 

procedure  Set  is 

--/ . * . 

--/  Description: 

--/  Deposits  the  user-supplied  value  into  application  memory. 

--/  The  processing  ivotved  is  straightforward: 

-/  1.  Get  the  variable  and  value  to  write  from  the  user's 

--/  command  line. 

--/  2.  If  the  variable  is  not  in  the  database,  then 

--/  issue  an  error  message  and  get  out. 

--/  3.  Otherwise, 

- 1  a.  activate  the  variable  for  output, 

--/  b.  display  the  status  to  the  user, 

~l  c.  and  deactivate  the  variable  (since  we're  finished  with  it). 
■*/ 

--/  Parameter  Description: 

--/  none 

-I 

-I  Notes: 

--/  none 

-I . * . * . 

package  Cli  renames  Define_Rtm_Cli; 

The_Variable:  Dialogue_Manager. Variablejdentifier; 
The_New_Value:  Dialogue_Manager.Value_String; 

The_Value:  Dialogue_Manager.Value_String; 

Variable_Name:  String  (1..80); 

Current_Time:  Calendar.Time  :=  Clock; 
begin 

-  Get  the  variable_name  and  value  entered  by  the  user  and 

-  verify  that  the  variable  is  available  for  i/o. 

Cli.Get_Argument  (Command  ■>  Cli. Set, 

Argument_Name  ■>  "name", 

Argument_Value  ■>  Variable_Name); 
Cli.Get_Argument  (Command  ■>  Cli. Set, 

Argument_Name  =>  "Values', 
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Argument_Value  =>  The_New_Value); 

-  Depc-.it  the  data  into  application  memory  and  display  the  status. 

-  The  Activate  procedure  call  must  precede  the  Set_  Value  procedure  call. 

-  since  Set_  Value  requires  a  variablejdentifier  to  function  properly. 

The_Variabie  =  Diaiogue_Manager  Activate 
(Name  =>  Varlable_Name, 

Usage  =>  Diaiogue_Manager.Wnte, 

StartmgTime  =>  Current_Time, 

Rate  =>  0  0); 

Diaiogue_Manager,Set_Value  (Vid  =>  The_Variable. 

Value  =>  The_New_Value); 

The_Value  :=  Left_Justify(Dialogue_Manager.Get_Vaiue  (Vid=>The_Variabie)); 
Put_Rtm_Fieid  (Field  =>  Message_Fieid_A, 

Field_Value  =>  "Variable  :  ’  &  Variable_Name); 

Put_Rtm_Field  (Field  =>  Message_Field_B, 

Field_Value  =>  ‘now  has  the  value: "  &  The_Vaiue); 
Diaiogue_Manager. Deactivate  (Vid  =>  The_Variabie, 

Usage  =>  Dialogue_Manager. Write); 

exception 

when  Dialogue_Manager.Variable_Not_Found  => 

Put_Rtm_Field  (Field  =>  Message_Field_A, 

Field_Value  =>  "Variable  not  Found: "  &  Variable_Name); 
when  Dialogue_Manager.lllegai_Vaiue  => 

Put_Rtm_Fieid  (Field  =>  Message_Fieid_A, 

Field_Value  =>  "Illegal  value: "  &  The_New_Vaiue); 
Diaiogue_Manager. Deactivate  (Vid  =>  The_Variabie, 

Usage  ■=>  Dialogue_Manager.Write); 

when  others  => 

Put_Rtm_Field  (Field  =>  Message_Field_A, 

Fieid_Value  =>  "Unhandied  exception  in  param_man'); 

end  Set; 

pragma  page; 
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separate  (ParameterManageri 
function  Left  Justity  (Display  _Vaiue  In  String' 
return  String  is 


--/  Description: 

-I  This  function  takes  a  stnng  as  input  and  strips  off  leading 
--/  blanks . 

~/ 

--/  Parameter  Description: 

-j  display _  value  ->  String  to  process. 

--/  return  ->  left-justified  string 

—  I 

t 

--/  Notes: 
none 

--/ . 

String_Lengtn:  Integer  :=  Display _Value'Length; 
Starting_Character:  Integer  :=  Stnng_Lengtr, 

New_Strmg  Stnng(Display_Vaiue'range  )  ;=  (others  =>  '  '); 
begin 

If  Dlsplay_Value(i )  /=  '  ’  then 
RETURN  Display _Value; 

else 

while  Display _Value(Starting_Characterl  /=  ' '  loop 
Starting_Character  :=  Startmg_Character  -  1 ; 

end  loop  ; 

New  Stnng  (1 .  Strmg_Length  -  Startmg_Character  +  1)  := 
Dispiay_Vaiue(Startmg_Cnaracter..  Display  _Vaiue’Lengtr:}; 
RETURN  New  String 

end  It  ; 

end  Lef1_Justi7, 
pragma  page 
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--/  Module  Name: 

Conversions 

--/  Module  Type: 

--/  Package  Specification 
~~ ! 

-  /  Module  Purpose: 

--/  This  package  ties  all  the  genenc  conversion  packages  together 
--/  and  provides  their  common  utilities  and  exceptions. 

-I  Module  Description: 

""/ 

--/  References: 

--/  Design  Documents: 

-•/  Real-Time  Monitor  Requirements 
- 1  Real-  Time  Monitor  Design 

■■/ 

--/  User's  Manual: 

-j  RTM  User's  Manual 

-■/ 

-  /  Testing  an  d  Validation : 

-j  none 

I 

-/ 

-I  Notes: 

-I  none 

--/  Modification  History: 

--/  02Sep87  rlvs  created 

--/ 

--/  Distribution  and  Copyright  Notice: 

-!  TBD 
"/ 

--  /  Disclaimer: 

--/  Tft/s  kvas  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
- 1  representing  official  policies,  either  expressed  or  implied, 

--/  Carnegie  Mellon  University,  the  U  S.  Air  Force, 

--/  fne  Department  of  Defense,  or  the  U.S.  Government.  ’ 


pragma  page; 


with  System, 

-  Use  the  type  "Address". 


package  Conversions  is 

--/ . . . 

--/ 

--/  Exceptions 

--/ . . . 

-  Signals  that  the  value  in  the  character  string  is  the  wrong  type 

-  tor  the  variable.  This  exception  is  shared  among  all  the 

-  genehc  conversion  packages. 

lllegal_Va!ue:  exception  ; 


pragma  page; 


--/  Module  Name: 

-  - 1  Convert_  Integers 

..i 

I 

I  Module  Type: 

-/  Package  Specification 

-I 

-/  Module  Purpose: 

-/  This  is  a  package  of  generic  utilities  to  convert  binary  bit  strings 
-/  into  integer  character  strings  and  character  strings  into 
-/  binary  bit  strings. 

-/  Module  Description: 

-/  This  package  contains  two  generic  procedures  used  for  converting 
-/  from  integer  binary  bit  strings  to  integer  character  strings. 

-/  The  package  is  set  up  to  operate  in  a  two-CPU  configuration,  with 
-/  the  genehc  function  target_conversion  doing  any  needed  translations 
-/  from  the  target  numeric  representation  into  the  host  numeric 
-/  representation. 

-/ 

-/  References: 

-/  Design  Documents: 

- 1  Real-  Time  Monitor  Requirements 

- 1  Real-  Time  Monitor  Design 

■I 

-/  User’s  Manual: 

-/  RTM  User's  Manual 

•/ 

-/  Testing  and  Validation: 

-/  none 

■I 

-/  Notes: 

-/  none 

-/  Modification  History: 

-/  04Jun87  rlvs  created 

■I 

-/  Distribution  and  Copyright  Notice: 

-I  TBD 

I 

-/  Disclaimer: 

-/  This  work  was  sponsored  by  the  Department  of  Defense. 

-/  The  views  and  conclusions  contained  in  this  document  are 
-/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
~l  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

-I  the  Department  of  Defense,  or  the  U.S.  Government. ' 

pragma  page; 


generic 


-  Default  width  of  the  generated  character  strings. 

Width:  Positive  :=  15; 

--  Integer  source_representation  (this  is  the  host  machine's  type) 
type  Source_Representation  is  range  <>; 

-*  Low-level  conversion  routine  needed  to  convert  from  the  target 

-  representation  to  the  host  representation  of  the  source  type 

-  ( referred  to  as  source_representation) 

with  function  Target_Conversion  (Raw_Value:  In  System. Address) 
return  Source  J^epresentation; 


package  Convertjntegers  Is 

procedure  Make_String  (Raw_Value:  In  System.Address; 
Field_Size:  In  Integer  :=  Width; 

Value:  out  String); 

-/ . * . 

--/  Description: 

--/  Make_stnng  takes  a  binary  bit  string  and  converts  it  into 
- 1  an  integer  character  string. 

--/  Parameter  Description: 

--/  raw_value  ->  The  address  of  the  binary  bit  string  to  be 
--/  converted. 

--/  field_size  ->  The  number  of  characters  needed  in  the  output 
--/  string. 

--/  value  •>  The  character  image  of  the  binary  bit  stnng  as 
--/  an  integer. 

-/ . 

procedure  Make_Value  (Raw_Value:  In  String; 

Value:  In  System.Address); 

-/ . 

--/  Description: 

--/  Make_value  takes  an  integer  character  string  and  converts  it  into  a 
~l  binary  bit  string. 

-I 

--/  Parameter  Description: 

--/  raw_value  ->  The  character  stnng  to  be  converted. 

~l  value  ->  The  address  where  the  resulting  bit  stnng  is  to  be 
--/  stored. 

~l . . . 

end  Convertjntegers; 


pragma  page; 


'•/ . 

--/  Module  Name: 

--/  Convert_Floats 

-I 

-I  Module  Type: 

--/  Package  Specification 
-/ 

-/  Module  Purpose: 

--/  77?/s  /s  a  package  of  generic  utilities  to  convert  binary  bit  strings 

- 1  into  real  character  strings  and  character  strings  into 
--/  binary  bit  strings. 

--/  Module  Description: 

— /  7/j/s  package  contains  two  generic  procedures  used  for  converting 

--/  from  rea/  binary  bit  strings  to  real  character  strings. 

--/  77?e  package  is  set  up  to  operate  in  a  two-CPU  configuration,  with 
--/  the  generic  function  target_conversion  doing  any  needed  translations 
--/  from  the  target  numeric  representation  into  the  host  numeric 
-/  representation. 

-I 

--/  References: 

--/  Design  Documents: 

—j  Real-Time  Monitor  Requirements 
--/  Real-Time  Monitor  Design 

-I 

-*/  User's  Manual: 

-/  RTM  User's  Manual 

--/ 

-/  Testing  and  Validation: 

--/  none 

--/ 

--/  Notes: 

--/  none 

--/  Modification  History: 

-j  D4Jun87  rfvs  created 
~/ 

--/  Distribution  and  Copyright  Notice: 

-I  TBD 
"/ 

--/  Disclaimer: 

-/  Tfrs  tvorff  was  sponsored  by  the  Department  of  Defense. 

--/  The  w'ews  and  conclusions  contained  in  this  document  are 
--j  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 

--/  representing  official  policies,  either  expressed  or  implied, 

~l  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  Me  Department  of  Defense,  or  the  U.S.  Government.  ‘ 

-r . 

pragma  page; 
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--  Default  width  of  the  generated  character  strings. 


Width:  Positive  =  15; 

-  Integer  type  source,  this  is  the  host  machine  's  type 
type  Source_Representation  is  digits  <>; 

-  Low-level  conversion  routine  needed  to  convert  from  the  target 

-  representation  to  the  host  representation  of  the  source  type 

-  (referred  to  as  source_representation) 

with  function  Target_Conversion  (Raw_Value:  In  System. Address) 
return  Source_Representation; 


package  Convert_Floats  is 

procedure  Make_String  (Raw_Value:  In  System. Address; 
Field_Size:  In  Integer  :=  Width; 

Value:  out  String); 

/ . 

--/  Description: 

-/  Make_stnng  takes  a  binary  bit  string  and  converts  it  into 
--/  a  real  character  stnng. 

"/ 

--/  Parameter  Description: 

-/  raw  value  ->  The  address  of  the  binary  bit  stnng  to  be 
--/  converted. 

~l  1ie!d_size  •>  The  number  of  characters  needed  in  the  output 
--/  Stnng. 

~l  value  •>  The  character  imaae  of  the  binary  bit  stnng  as 
--/  a  float. 

-/ . . 

procedure  Ma«e_Vaiue  (Ra*_Va.ue  In  String. 

Value  In  System  Address): 

-I . 

--/  Description: 

-/  Make_value  takes  a  real  cha'acter  stnng  and  convens  it  m:c  a 
--/  binary  bit  stnng 

- 1 

--/  Parameter  Description: 

--/  raw_value  ->  The  charade- stnng  to  be  converted 

--/  value  ->  The  address  where  the  resulting  bit  stnng  is  to  be 

-I  stored 

. . . 

I 

•nd  Convert  Floats 
pragma  page 
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--/  Module  Name: 

Convert_Enumerations 

--/  Module  Type: 

Package  Specification 

--/  Module  Purpose: 

—!  This  is  a  package  of  generic  utilities  to  convert  binary  bit  stnngs 
into  enumeration  character  strings  anct  character  stnngs  into 
-- .  binary  bit  Strings 


--/  Module  Description: 

This  package  contains  two  genenc  procedures  used  for  converting 
-  from  enumeration  binary  bit  stnngs  to  enumeration  character  stnngs. 
The  package  is  set  up  to  operate  in  a  two-CPU  configuration,  with 
the  genenc  function  target_conversior,  doing  any  needed  translations 
--  from  the  target  numenc  representation  into  the  host  numeric 
representation 

References: 

Design  Documents : 

Real-Time  Monito'  Reauirements 
Real-Time  Monitor  Design 

User's  Manual: 

RTM  Use' S  Manua 

Testing  and  Validation: 

none 

Notes: 

rone 


Modification  History: 

nS '  nvs  created 


Distribution  and  Copyright  Notice 

~b: 

Disclaimer: 

was  spc-nsored  by  (he  Deoahment  of  Defense 
*  ^e  views  arc  conclusions  conta  ned  m  this  document  are 
s ote’y  those  c’  the  autnoris i  and  should  not  be  interpreted  as 
'epresent  nc  of  cia  polices .  ertner  expressed  or  implied. 
o‘  Carneg>e  Meiicn  University,  the  U  S  Air  Force. 
me  Department  o'  De(ense  or  the  U  S  Government " 


pragma  sage 
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generic 

--  Default  width  of  the  generated  character  stnngs 
Width:  Positive  :=  15; 

-  Integer  type  source,  this  is  the  host  machine's  type 
type  Source_Representation  is  (<>); 

--  Low-level  conversion  routine  needed  to  convert  from  the  target 

-  representation  to  the  host  representation  of  the  source  type 

-  (referred  to  as  source_representation) 

with  function  Target_Conversion  (Raw_Value:  in  System  Address', 
return  Source_Representation; 


package  Convert  Enumerations  is 

procedure  Make_String  (Raw_Vaiue:  In  System.Address; 

Field_Size:  in  Integer  :=  Width; 

Value:  out  String); 

--/ . 

--/  Description: 

-/  Make_  value  takes  a  enumeration  character  string  and  converts  it  into  a 
-j  binary  bit  string. 

-! 

-/  Parameter  Description: 

-/  raw_value  •>  The  character  string  to  be  converted. 

~l  field_size  •>  The  number  of  characters  needed  in  the  output 
-/  string. 

*/  value  •>  The  address  where  the  resulting  bit  string  is  to  be 
-j  stored. 

■I . 


procedure  Make_Value  (Raw_Value:  In  String; 

Value:  in  System.Address); 

-  /  Description: 

Make_va!ue  takes  an  enumeration  character  string  and  converts  it  into  a 
binary  bit  string. 

I  Parameter  Description: 

raw_  value  ->  The  character  string  to  be  converted, 
value  -  >  The  address  where  the  resulting  bit  string  is  to  be 
stored. 


•nd  Ccnvert  Enumerations; 

•nd  Conversions. 
pr»gm*  cage 
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Module  Name 


Module  Type 

i  -  i  ;•  ■ 

Module  Description 

»  *  •  t ;» 

.  i  *  i  *'  .  ’ 

Design  Doo umens 

*4**, 4  *  ’  >  V 

Use'  i  Manus' 

’ *i  ,  » e  . 

Testing  and  •  a"Ja,'0' 

Notes 

Modification  H,9iO'\ 


Distribution  and  opy'iqm  Not"  e 

Disclaimer 

•  «*r  rk  ,< - »-  *<’•- 

T  ei"1"  *  *'  *  .  "W*  *  * 

SG*P  ►  ""  i.  '  "  *  j  "  '  •  <i  '*  ■  ■'*  ( 

'mj  <.**'■'  i  »-  ♦  *■<»;  '*>•  ■  **  • 

C'  *J>4-  M#*  f,  .  *  *  "  #- 

"  >*  ,  ■'  #-  -  H  .a*  •'#- 


pragma  oaq** 
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package  Conversions  )s 


package  Convert  integers  is  separate 
package  Convert  f-  .oats  is  separate 

package  o'-ven  r  numeration'  is  separate 


end  o< 
pragma  c-u- 
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-/  Module  Name: 

Convert _  Integers 

-I  Module  Type: 

Package  Body 


-/  Module  Description: 

This  package  contains  two  generic  procedures  used  lor  converting 
from  integer  binary  bit  stnngs  to  integer  character  strings 
It  does  this  using  the  services  of  textio  and  unchecked  conversion 

•j  References: 

Design  Documents: 

none 

-I  Testing  and  Validation: 

-l  none 

-j 

-/  Notes: 

■ ;  none 

-/  Modification  History: 

04JunB7  rivs  created 


l  Distribution  and  Copyright  Notice: 

TBD 

I  Disclaimer: 

This  work  was  sponsored  by  the  Department  of  Defense 
The  views  and  conclusions  contained  in  this  document  are 
solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
representing  official  policies,  either  expressed  or  implied, 
of  Carnegie  Mellon  University,  the  U  S  Air  Force, 
the  Department  o>  Defense,  or  the  U  S  Government  * 


pragma  page, 
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with  Texljo, 

-  Need  services  'put"  and  "get" 

with  Unchecked_Conversion; 

--  Need  service  "unchecked_conversion". 

separate  (Conversions) 

package  Convert  Integers  is 

--  Instantiate  an  10  package  to  manipulate  integer  types 


package  InternaIJo  Is  new  Texljo.  Integer  Jc  (Source_Representation); 

-  Create  type  and  objects  needed  to  access  memory  as  integer  values, 

-  given  system  addresses  as  input. 

type  IntegerPointer  Is  access  Source_Representation; 
NewJnteger_Value:  lnteger_Pointer. 

function  Address_To_lnteger_Pointer  Is  new  Unchecked_Conversion 
(Source  =>  System. Address. 

Target  =>  lnteger_Pointer), 

function  lnteger_Pomter_To_Address  Is  new  Unchecked_Conversion 
(Source  «>  lnteger_Pointer. 

Target  *>  System. Address'. 

pragma  page; 
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procedure  Mane  String  (Raw  Value  In  System  Address 
Fieid  Size  In  Integer  =  Widtr 
Vaiue  out  String  i  Is 


--/  Description: 

Make  string  takes  a  binary  bit  string  ancl  converts  it  into 
an  integer  character  stnng  It  does  this  by  using 
target_  conversion  to  map  the  target  bit  representa'On  o'  an 
■- :  integer  into  tne  host  version  of  an  integer  and  then 

uses  text_ic  to  convert  the  bits  into  an  integer  character  string 

I  Parameter  Description 

rav,  value  ■>  The  address  o'  tne  binary  bn  stnnc  tc  be 
converted 

fieid_size  ■>  The  number  of  characters  needed  m  the  output 
Stnng 

value  >  Tne  character  image  of  tne  binary  bn  stnng  as 
an  mtege- 

-  /  Notes: 

none 


begin 

Interna  lo  Put  To  Vaiue  1  Fied  Sze 

Item  «>  Target  ConversioniRaw  va  uet. 

exception 

when  Text_lc  ^avout. Error  => 

Vaiueil  Fied  Size'  *(t  Fie'd  Sze  =»  *; 

when  others  «> 

RAISE 

end  Maxe  String 


pragma  page 
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procedure  V,i>>  .  h  .,>■  .  i  .  in  i, 

»  .1  ;•  In  -1  M*"»-  A  I'Vf  Is 


Description 

M.*»<  •  :<  •  M**-'  .1  '  ,i  i 

\\  .1  '  ,(•>  '"w>"  •  \  ; 

»*'•  ."■*  iiivi  .i  •  '  .'><  •'  '»■  •  "  •  x>- 

f.  .1  l  *'  ’  J‘  I' 

.1  l  '  l  "  >  ;>  •* 

Parameter  Description 

i.'  ,  )  • «  <i-  •  •  . .  • . 

v.r  -  •  it?  '•*-  • 

Vofes 


.  •  f  a  ’  • 

i  ■  ■  .  ,  • 

beam 

*  •  •  •  ;  * '  ‘  ■  '  "J/.  .  > 

•  .  I  •  .«•  •• 

•icepbon 

RAISE  .  ■ 

when  otne's 
RAISE 

end  t-  •  •  • 

end  .*••• 

pragma  .  , 
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Module  Name 

.  .  •  r 


Module  T 

t  *  .)  ;*  •<  '. 


Module  [ieti  nptipf' 

•  i  '  '  . 


References 

Oeaigr >  ['tocumen f* 


'eating  #r>  w 


Mo'f'tu  atm1  H  aio'\ 


; >nt r<t*u*'C'  *''<•  . 


:*■«  a-nre- 


Ni'1" 


M-J 


f '(  lotir 


with  Text  ic 

Neva  seduces  'pul'  and  'get' 

with  Unc”e.  *efl  Conversion 

Reec  sen  .ce  'uncnpckec  convprsior' 

separate  iloove'sions 

package  i’".*"'  a  toiitr  Is 

;s\r”.r f  r  \  r.i  .*<-  ma'i/pt/.-.i:e  '/ca*  fvpes 


package  inte"'a  u  is  new  lex*  ic  F  ioaf  ic  (Source  Representation 

v  ’f'.i.’r  ,'vp*  anp  op/ecfs  r>eeaec  tc  access  memo'v  as  //oa.'  vas.es 
a  i  e-  s,  s.v  •  acAvesses  as  np.  * 

type  h*‘,i  >':)i,'ti1'  is  access  Souc-e  Rep'esenta'  ■ 

Re  a  Rea  >■  i  ne  Rea  f’omte' 

function  Aiiien  "c  Rea  f\>.nte' Is  new  inc-e  >ect  C'  'H e'sic' 
So..'  »  ■  ■  S>sten-  A00rt>s< 

.V  J*J'  ■  ■  Mea  [1;iinler 

function  ^e a  f’omte*  ’  c  Ad -yes*  is  new  .  -n  -e.  *e.i  Cone’si:”’ 
l-  i,,’  •  •  Rea  A’oin’e' 

'  .1'  Je'  .  ,  He"  A  1  !•*>•. 1 

pragma  .  >  ;• 
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procedure  Make_Stnng  (Raw_Value  in  System. Address, 
Field_Size:  in  Integer  :=  Width; 

Value,  out  String)  Is 

--/ . 

--/  Description: 

--/  Make_stnng  takes  a  binary  bit  string  and  converts  it  into 

--/  a  real  character  string.  It  does  this  by  using 

--/  target_conversion  to  map  the  target  bit  representaion  of  a 

- !  real  into  the  host  version  of  a  real  and  then 

--/  uses  text_io  to  convert  the  bits  into  a  real  character  stnng. 

-- 1  Parameter  Description: 

--/  raw  value  ->  The  address  of  tne  binary  bit  stnng  to  be 
--/  converted. 

--/  field_size  ->  The  number  of  cha'acters  needed  m  the  output 
string. 

value  ■>  The  character  image  of  the  binary  bit  stnng  as 
a  real 

■■I  Notes: 

none 


begin 

Interna  Jo  Put  fTo  =>  VaiueM  Fie  c_Sizei. 

Item  =>  Target_Conversioni'Flaw_Va<ue)!. 

exception 

when  Textjc  Layout  Error  => 

Vaiueit  Fie'd_Size  =  (t  Fie.c  S.ze  «> '*') 

when  others  «> 

RAISE 

end  Maxe  String 

pragma  page 
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procedure  Make_Value  (Raw_Value:  In  String; 

Value  In  System. Address)  Is 

****** **»****»••*•***••*•* ** ******************************* »»••*** 

~~l 

- j  Description: 

--/  Make_  value  takes  a  real  character  stnng  and  converts  it 
— /  into  a  binary  bit  stnng.  It  does  this  by  converting 
--/  the  address  where  the  data  are  to  be  stored  into  a  pointer 
--/  to  a  real  and  then  uses  textjo  to  get  a  real  out  of 
-/  a  stnng  and  store  it  at  the  pointer. 

-I 

-- 1  Parameter  Description: 

--/  raw_value  ■>  The  character  stnng  to  be  convened 

--/  value  ■>  The  address  where  the  resulting  bit  string  is  to  be 

--/  stored. 

-I 

-I  Notes: 

-/  none 

!  •*•••**••••••********•*»•**••*••• •*•••• •••••»•*•••»•*•#•#•••••• *# 

’■/ 

Vaiue_Location  Rea!_Pointer  =  Address_To_Rea'_Pointer(Vaiue! 
End_0‘_Vaiue  Integer, 

begin 

Interna  _lo  Get  (From  =>  Raw  Value. 

item  =>  Vaiue  Location  all  , 

Last  =>  End_Ot_Vaiue), 

exception 

when  Textjo  Data  Error  => 

RAISE  IliegaJVaiue. 

when  others  => 

RAISE 

end  Make  Vaiue 

end  Convert  Fioats, 
pragma  page 
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-  /  Module  Name: 

Convert_  Enumerations 

--/  Module  Type: 

Package  Body 


--/  Module  Description: 

This  package  contains  two  gene'  c  procedures  used  ter  cor'ved  ng 
from  real  Oman,  pi:  srmgs  tc  rea  characte'  st'-ngs 
It  does  this  using  t' it  sen- ices  o'  ft-  *  *  10  and  unchecked  cc've’s  c 

--/  References: 

■  ■  I  Design  Doc  umen  ts 

none 

--/  Testing  and  Validation: 

none 

Notes: 

none 


Modification  History 

04JunS '  rtvs  created 


Distribution  and  Copyright  Notice 

TBC 

Disclaimer 

'This  work  was  sponsored  £>v  tie  Departmem  c '  Defense 
The  views  and  conclusions  co"ta  nec  ir  tn  s  aocumem  a't 
SOiety  those  0‘  the  ajthoris  anc  snjjid  nc1  0*  nterpretec  as 
representing  offiza  policies  eime-  expressed  c  irap^ec 
o‘ Carnegie  Meho"  Untve'stp  tne  c  S  An  Force 
tne  Department  o'  Defense  c  me  t  S  Government  * 


pragma  page 
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With  'fi'  k 

\tJt  >0  Se".  LK-'  d  V  Jf  ' 

with  „  1,  vP'He'S  " 

\dt\"  se'»  Ct  .. 'V’f\>r\'  .  •• 

separate  ■  >> 

package  ,'  er*  i  njwjt  .>"•  is 

v\i’*.rt  .r  „  p,u  *.ij»  •  • .  r-  • 


i  package  me-oa  ic  is  new  'e»*  'c  E  nume-a:..>-  K  >v\r.<  -»♦*;  vs--  -.it  .•• 
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procedure  Ma«.e  Sv  nj  iRaw  Vaiue  In  System  Address, 
Reo  S.ze  In  Integer  &  Width; 

Va  jf  out  String;  is 


Description 

Wa*e  string  :a*es  a  b-nary  bit  string  and  converts  it  into 

a  -  enumeration  character  stnng  It  ooes  this  by  using 
target  conversion  to  map  the  target  bit  representaion  of  an 
enjmeration  into  tne  host  version  of  an  enumeration  and  then 
uses  text_  10  to  conned  the  bits  into  an  enumeration  character  string. 

Parameter  Description: 

raw_  value  ->  T ne  address  of  tne  binary  bit  stnng  to  be 
converteo 

fieid_size  ->  Tne  number  of  characters  needed  in  the  ouput 
stnng. 

vaiue  ■>  The  character  image  of  the  binary  bit  string  as 
an  enumeration. 

-  Notes: 

none 


begin 

Interna'Jo.Put  (To  =>  Value(1  ..Field_Size), 

Item  =>  Target_Conversion(Raw_Value)); 

exception 

when  Textjo  Layout_Error  => 

Vaiue(l..Fieid_Size)  '■=  (1..Fieid_Size  => 

when  others  => 

RAISE  ; 

end  Make_String; 
pragma  page; 
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procedure  Make_Value  (Raw_Value:  In  String; 

Value:  In  System.Address)  Is 

--/ . . 

--/  Description: 

--/  Make_value  takes  an  enumeration  character  sthng  and  converts  it 

--/  into  a  binary  bit  string.  It  does  this  by  converting 

--/  the  address  where  the  data  areto  be  stored  into  a  pointer 

--/  to  an  enumeration  and  then  uses  text_io  to  get  an  enumeration  out  of 

--/  a  string  and  store  it  at  the  pointer. 

-I 

--/  Parameter  Description: 

--/  raw_value  ->  The  character  string  to  be  converted. 

--/  value  ->  The  address  where  the  resulting  bit  string  is  to  be 
--/  stored. 

-I 

--/  Notes: 

--/  none 

-/ . . . * - 

Value_Location:  Enum_Pointer  :=  Address_To_Enum_Pointer(Value); 
End_Of_Value:  Integer; 

begin 

InternaMo.Get  (From  =>  Raw_Value, 

Item  =>  Value_Location.all , 

Last  =>  End_Of_Value); 

exception 

when  Text_lo.Data_Error  => 

RAISE  lllegal_Value; 

when  others  => 

RAISE  ; 

end  Make_Value; 

end  Convert_Enumerations; 
pragma  page; 


91 


October  1987 


--/ . 

--/  Module  Name: 

--/  Types_Manager 

-I 

--/  Module  Type: 

~l  Package  Specification 

-I 

--/  Module  Purpose: 

--/  77ws  package  is  the  interface  to  all  the  underlying  type 
--/  representations  used  by  the  application. 

-j  Module  Description: 

--/  Trt/'s  package  contains  all  the  knowledge  in  the  system  about 
--/  types.  It  is  both  the  database  of  legal  (i.e.,  displayable) 

-I  types  and  the  mechanism  by  which  data  is  converted  from  the 
--/  internal  RTM  representation  to  a  user-readable  form. 

-I 

--/  References: 

--/  Design  Documents: 

- 1  Real-  Time  Monitor  Requirements 

-- 1  Real-Time  Monitor  Design 

--/ 

--/  User’s  Manual: 

--/  RTM  User’s  Manual 

--/ 

--/  Testing  and  Validation: 

-I  none 

-I 

-I  Notes: 

-j  none 

--/ - 

-I  Modification  History: 

--/  22 May 8 7  rfvs  created 

-I 

--/  Distribution  and  Copyright  Notice: 

-I  TBD 

-I 

-I  Disclaimer: 

--/  This  work  was  sponsored  by  the  Department  of  Defense. 

-/  The  views  and  conclusions  contained  in  this  document  are 
--/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 

-I  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--j  the  Department  of  Defense,  or  the  U.S.  Government. " 

-*/ - 

pragma  page; 
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with  System; 

--  Use  the  type  "address". 


package  Types_Manager  is 

--  Type  identifier,  used  externally  to  refer  to  a  named  type. 

type  Valid_Rtm_Type  is  private  ; 

procedure  Convert_Value_To_String  (Data_Type:  In  Valid_Rtm_Type; 
Raw_Data:  In  System. Address; 
Number_Of_Characters:  In  Integer; 

The_Value:  out  String); 

^  I  #*##*#*•■•*►»►•#*»**•*#•#»*****#*»»#»#»*#**#•••••••***»*•***•***••*• 

--/  Description: 

--/  This  module  converts  from  the  internal  representation  used 
--/  by  the  RTM  in  storing  variable  values  into  strings  that 
--/  are  displayable  to  the  user. 

-I 

--/  Parameter  Description: 

--/  data_type  ->  The  Ada  data  type  of  raw  data. 

--/  raw_data  ->  The  address  of  the  binary  bit  string  to  convert. 

--/  number_of_characters  ->  The  number  of  characters  needed  in  the 
-/  value  string. 

--/  the_value  ->  A  string  containing  the  displayable  value. 

--/ . 

procedure  Convert_String_To_Value  (Data_Type:  in  Valid_Rtm_Type; 
Raw  Data;  In  System.Address; 

The_Value:  in  String); 

. 

~l  Description: 

--/  This  module  converts  from  the  string  entered  by  the  user 
--/  into  the  internal  representation  used  by  the  RTM. 

-I 

-I  Parameter  Description: 

--/  data_type  ■>  The  Ada  data  type  of  raw  data. 

-/  raw_data  •>  The  address  of  the  binary  bit  string  to  convert. 

--/  the_value  ■>  The  string  whose  value  the  user  wishes  deposited  into 
-/  application  memory. 


function  Find  (Name;  In  String)  return  Valid_Rtm_Type; 
-/  Description: 

-/  This  module  is  the  lookup  entry  used  to  locate  legal  types 
-/  It  maps  data  obtained  from  the  library_interface  into  types 
- 1  which  the  types_manager  can  convert. 

-I 

--/  Parameter  Description: 

-/  name  ->  The  name  of  the  Ada  type  associated  with 
--/  a  variable. 

~l  return  ->  The  internal  Identifier  used  to  refer 
--/  to  the  type. 


procedure  Get_Type_lnformation  (Typejdentifier:  In  Valid_Rtm_Type; 
Type_Length:  out  Integer; 

lndirection_lndicator:  out  Boolean); 
- * - * - 

--/  Description: 

--/  This  module  takes  a  type  identifier  and  returns  detailed 
--/  information  about  the  structure  of  the  type  to  the  caller. 

--/ 

-I  Parameter  Description: 

--/  typejndentifier  ->  Identifier  of  the  type  about  which 
~l  information  is  needed. 

--/  type_length  ->  The  size  of  the  underlying  type  in  the 
--/  size  of  the  storage  units  used  by  the  RTM 

--/  (i.e.,  smallest_units). 

--/  indirection_indicator  ->  Logical  flag  which  when 
--/  true  =>  an  access  type 

--/  false  =>  any  other  type 

-I . * . . . 


-/ - * . * - 

*•/ 

--/  Exceptions 

I 

I 

-/ . 

-  Exception  used  to  signal  a  type  that  the  types_manager  is  not 

-  equiped  to  process. 

Type_Not_Found:  exception  ; 

-  Exception  used  to  signal  illegal  value  string  for  type. 

lllegai_Value:  exception  ; 
private 

type  Valid_Rtm_Type  is  new  Integer; 

end  Types_Manager; 
pragma  page; 
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-/  Module  Name: 

-/  Types_Manager 

-I 

-/  Module  Type: 

-/  Package  Body 
-I 

-/  Module  Description: 

-/  This  package  embodies  type  database  and  the  operations  needed 
-/  to  access  the  database  and  convert  data  from  bit  sthngs  into 
-/  character  strings. 

■! 

-/  The  type  database  consists  of  an  array  of  records  (defined 
-/  below),  that  contains  all  the  data  needed  to  convert  a 
-/  bit  string  into  a  value.  All  data  types  accessible  to  the 
-/  user  must  be  defined  in  this  database  and  have  corresponding 
-/  entries  in  the  low-level  conversion  routines  for  their 
-/  implementation. 

-/ 

-/  References: 

-/  Design  Documents: 

-/  Real-Time  Monitor  Requirements 
- 1  Real-  Time  Monitor  Design 

*/ 

-/  User’s  Manual: 

-I  RTM  User's  Manual 

■I 

-I  Testing  and  Validation: 

-/  none 

-I 

-I  Notes: 

-/  none 


-I  Modification  History: 

--/  04Jun87  rtvs  created 


--/  Distribution  and  Copyright  Notice: 

-I  TBD 

~l 

-/  Disclaimer: 

-I  This  work  was  sponsored  by  the  Department  of  Defense. 

~l  The  views  and  conclusions  contained  in  this  document  are 
--/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
“/  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

-I  the  Department  of  Defense,  or  the  U.S.  Government.  * 

pragma  page; 
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with  Test_Stub;  — . . test  only  * - - 

--  Need  access  to  the  type  definitions  defined  in  the  dummy  application. 


Km 

Ll, 
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with  Conversions; 

-  Use  the  generic  packages:  "convert_floats",  "convertjntegers"  and 

-  "convert_enumerations". 

-  Use  the  exception  " illegal-value 

with  Unchecked_Conversion; 

--  Use  sen/ice  "unchecked_conversion". 


package  Types_Manager  is 

--  Define  the  names  of  all  the  legal  types 


type  Valid_Type_Name  is  (Integers,  Floats,  Rtm_Enum1,  Rtm_Record); 

-  Define  all  the  data  needed  about  each  type: 

type_name_as_string  ->  A  character  string  version  of  the  type  name. 
This  must  match  exactly  with  the  type  as  it 
exists  in  the  application  program,  where  the 
type_name  is  a  convenient  enumeration  literal 
for  this  type. 

type_name  ->  An  enumeration  literal  for  the  type, 
typejength  ->  The  size  of  the  type  in  smallest_units. 
display _width  ->  Number  of  characters  needed  to  display  a  value 
of  the  type  type_name. 

indirection_level  •>  An  integer  that  indicates  how  many  levels  of 
indirect  access  the  type  represents. 


type  Type_Representation  is  record 
Type_Name_As_String:  String(1  ..256); 
Type_Name:  Valid_Type_Name; 
Type_Length:  Integer  :=  0; 

Display _Width:  Integer  :=  25; 
lndirection_Level:  Integer  :=  0; 
end  record  ; 


-  Define  the  table  that  holds  all  the  type  information;  define 

-  type_name_as_string  in  body. 

Number_Of_Valid_Types:  Valid_Rtm_Type  := 
Valid_Type_Name'Pos(Valid_Type_Name’Last); 

Valid_Rtm_Types:  array  (O..Number_OM/alid_Types)  ot  Type_Representation  := 
((Type_Name_As_String  (others  *>  ’  ’), 

Type_Name  ->  Integers,  Type_length  =>  1. 

Display_Width  ■>  10,lndirection_Level  =>  0), 

(Type_Name_As_String  «>  (others  «>  "), 

Type_Name  «>  Floats,  Type_Length  =>  1, 

Display_Width  «>  lO,lndirection_Level  ->  0), 


(T ype_Name_As_String  ->  (others  ■>  ”), 
Type_Name  *>  Rtm_Enum1,  Type_Length  =>  1, 
Display_Widtn  *>  5,lndirection_Levei  =>  0), 
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(Type_Name_As_String  =>  (others  =>  '  ’), 

Type_Name  =>  Rtm_Record,  Type_Length  =>  2, 

Disp!ay_Width  =>  20,lndirection_Level  =>  0)); 

type  Float_Pointer  is  access  Float; 

function  Address_To__Float_Pointer  is  new  Unchecked_Conversion 
(Source  =>  System. Address, 

Target  =>  F!oat_Pointer); 

type  Integer  Pointer  is  access  Integer; 

function  Address_To_lnteger_Pointer  is  new  Unchecked_Conversion 
(Source  =>  System.Address, 

Target  =>  lnteger_Pcinter); 

type  Rtm_Enum_Pointer  is  access  Test_Stub.Rtm_Enum; 

function  Address_To_Rtm_Enum_Pointer  is  new  Unchecked_Conversion 
(Source  =>  System.Address, 

Target  =>  Rtm_Enum_Pointer); 

pragma  page; 
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function  Default_F!oat_Conversion  (Raw_Value:  in  System. Address) 
return  Float  is 

-/ . 

--/  Description: 

--/  Convert  from  a  bit  string  at  a  system  address  to  a  floating 
--/  point  value.  This  is  valid  for  a  one-CPU  configuration 
--/  only. 

-I 

--/  Parameter  Description: 

--/  raw_value  ->  The  address  of  the  bit  string  to  convert. 

-I 

-I  Notes: 

--/  none 

/ . . . 

Value_Pointer:  Float_Pointer; 

begin 

Value_Pointer  :=  Address_To_Float_Pointer(Raw_Value); 
RETURN  Value_Pointer.all  ; 
end  Defauft_Float_Conversion; 
pragma  Inline  (Default_Float_Conversion); 

-  Create  the  package  to  convert  from  bit  strings  to  floats. 


package  Rtm  Reals  Is  new  Conversions. Convert_Floats 
(Width  =>  15, 

Source_Representation  =>  Float, 

Target_Conversion  =>  Defau!t_Fioat_Conversion); 


pragma  page; 
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function  Default_lnteger_Conversion  (Raw_Value:  in  System. Address) 
ret*  -n  Integer  is 

-/ . . . * . 

--/  Description: 

-/  Convert  from  a  bit  string  at  a  system  address  to  an  integer 
--/  value.  This  is  valid  for  a  one-CPU  configuration 
--/  only. 

--/ 

--/  Parameter  Description: 

--/  raw_value  ->  The  address  of  the  bit  string  to  convert. 

--/ 

-I  Notes: 

--/  none 

/ . * . 

Value_Pointer:  lnteger_Pointer; 

begin 

Value_Pointer  :=  Address_To_lnteger_Pointer(Raw_Value); 
RETURN  Value_Pointer.all  ; 
end  Default_lnteger_Conversion; 
pragma  Inline  (Default_lnteger_Conversion); 


-  Create  the  package  to  convert  from  bit  strings  to  integers. 


package  Rtmjntegers  is  new  Conversions  ConvertJntegers 
(Width  =>15, 

Source_Representation  =>  Integer, 

Target_Conversion  =>  Default_lnteger_Con version); 

pragma  page; 
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function  Rtm_Enum_Conversion  (Raw_Value:  In  System. Address) 
return  Test_Stub.Rtm_Enum  is 

--/ . * . 

--/  Description: 

~l  Convert  from  a  bit  string  at  a  system  address  to  an 

--/  enumeration  value.  This  is  valid  for  a  one-CPU  configuration 

--/  only. 

--/ 

--/  Parameter  Description: 

-I  raw_  value  ->  The  address  of  the  bit  string  to  convert. 

-I 

--/  Notes: 

--/  none 

/ . . . 

Value_Pointer:  Rtm_Enum_Pointer; 

begin 

Value_Pointer  :=  Address_To_Rtm_Enum_Pointer(Raw_Value); 
RETURN  Value_Pointer.all  ; 
end  Rtm_Enum_Conversion; 
pragma  inline  (Rtm_Enum_Conversion); 

--  Create  the  package  to  convert  from  bit  strings  to  rtm_enum  enumerations 


package  Rtm_Enums  is  new  Conversions. ConverHEnumerations 
(Width  =>  5, 

Source_Representation  =>  Test_Stub.Rtm_Enum, 
Target_Conversion  =>  Rtm_Enum_Conversion); 


pragma  page; 


-  Visible  procedures 

procedure  Convert_Value_To_String  (Data_Type:  in  Valid_Rtm_Type; 
Raw_Data:  in  System. Address; 
Number_Of_Characters:  in  Integer; 

The_Value:  out  String)  is  separate  ; 

procedure  Convert_String_To_Value  (Data_Type:  in  Valid_Rtm_Type; 
Raw_Data:  in  System. Address; 

The_Value:  in  String)  is  separate  ; 

function  Find  (Name:  in  String)  return  Valid_Rtm_Type  Is  separate  ; 

procedure  Get_Type_lnformation  (Typejdentifier:  In  Valid_Rtm_Type; 
Type_Length:  out  Integer; 

Indirectionjndicator:  out  Boolean) 

is  separate  ; 


-/ . 

--/ 

--/  Package  Body 
*-/ 

--/  The  body  is  responsible  (or  initializing  the  string  versions 
--/  of  all  the  type  names. 

- 1 

'-/*”* . 

begin 

Valid_Rtm_Types(0).Type_Name_As_String(1..7)  :=  "integer"; 
Valid_Rtm_Types(1).Type_Name_As_String(1..5)  :=  "float"; 
Valid_Rtm_Types(2).Type_Name_As_String(1.-9)  :=  *rtm_enum1\ 
Valid_Rtm_Types(3).Type_Name_As_String(1..10)  :=  "rtm_record"; 
end  Types_Manager; 
pragma  page; 
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separate  (Types_Manager) 

procedure  Convert_Value_To_String  (Data_Type:  In  Valid_Rtm_Type; 
Raw_Data:  In  System. Address, 
Number_Of_Characters:  in  Integer; 

The_Value:  out  String)  is 

--/ . . . 

--/  Description: 

~l  This  module  converts  from  the  internal  representation  used 

--/  by  the  RTM  in  stohng  variable  values  into  strings  which 

--/  are  displayable  to  the  user.  Since  the  bit  pattern  in  the 

--/  internal  representation  (collected  by  the  Rtm_Core)  may  or 

--/  may  not  have  an  analog  in  the  machine  running  the  user  interface, 

--/  a  package  of  conversion  routines  is  used  to  translate  the  bits  into 
~l  a  form  the  host  machine  can  handle.  This  procedure  then  takes 
--/  the  bits  and  forms  a  user-readable  string. 

-/ 

-/  Parameter  Description: 

--/  data_type  ->  The  Ada  data  type  of  raw  data. 

--/  raw_data  ->  The  address  of  the  binary  bit  string  to  convert. 

--/  number_of_characters  •>  The  number  of  characters  needed  in  the 
--/  value  sthng. 

--/  the_value  ->  A  string  containing  the  displayable  value. 

-I 

--/  Notes: 

--/  none 

-I . 

begin 

The_Value  :=  (Tbe_Value’range  => '  ’); 

case  Va!id_Rtm_Types(Data_Type).Type_Name  is 

when  Integers  => 

Rtm_lntegers.Make_String  (Raw_Value  =>  Raw_Data, 

Field_Size  =>  Number_Of_Characters, 

Value  =>  The_Value); 

when  Floats  => 

Rtm_Reais.Make_String  (Raw_Value  =>  Raw_Data, 

Field_Size  =>  Number_Of_Characters, 

Value  =>  The_Value); 
when  Rtm_Enum1  => 

Rtm_Enums.Make_String  (Raw_Value  =>  Raw_Data, 

Field_Size  =>  Number_Of_Characters, 

Value  =>  The_Value); 
when  Rtm_Record  => 

null  ; 

when  others  => 
null ; 

end  case  ; 

end  Convert_Value_To_String; 
pragma  page; 
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separate  (Types_Manager) 

procedure  Convert_String_To_Value  (Data_Type:  in  Valid_Rtm_Type; 
Raw_Data:  in  System. Address; 

The_Value:  In  String)  is 

--! . 

--/  Description: 

-/  This  module  converts  from  the  string  entered  by  the  user 
--/  into  the  internal  representation  used  by  the  RTM. 

-/  Since  the  bit  pattern  in  the  internal  representation 
--/  (collected  by  the  Rtm_Core),  may  or  may  not  have  an  analog 
-/  in  the  machine  running  the  user  interlace,  a  package  of 
-j  conversion  routines  is  used  to  translate  the  bits  into  a 
-/  form  the  target  machine  can  handle. 

-/ 

--/  Parameter  Description: 

-/  data_type  ■>  The  Ada  data  type  of  raw  data. 

-I  raw_data  ->  The  address  of  the  binary  bit  string  to  convert. 

--/  the_value  ->  The  string  whose  value  the  user  wishes  deposited  into 
--/  application  memory. 

-! 

- 1  Notes: 

--/  none 

-*/ . . . . 

begin 

case  Valid_Rtm_Types(Data_Type).Type_Name  Is 
when  Integers  => 

Rtm_lntegers.Make_Value  (The_Value,Raw_Data); 
when  Floats  => 

Rtm_Reals.Make_Value  (The_Value,Raw_Data); 
when  Rtm_Enum1  => 

Rtm_Enums.Make_Value  (The_Value  Raw_Data); 
when  Rtm_Record  => 

null  ; 

when  others  => 
null  ; 

end  case ; 
exception 

when  Conversions. lllegal_Vaiue  => 

RAISE  lliegai_Value; 

when  others  => 

RAISE  ; 

end  Convert_String_To_Value; 
pragma  page; 


A 


S, 

4 


» 


103 


October  1987 


with  Case_lnsensitive_String_Comparison; 

-  Use  service  "equal". 

separate  (Types_Manager) 

function  Find  (Name:  in  String)  return  Valid_Rtm_Type  is 

/ . . . 

--/  Description: 

--/  This  module  is  the  lookup  entry  used  to  locate  legal  types. 

--/  It  maps  data  obtained  from  the  library_interface  into  types 
--/  that  the  types_manager  can  convert. 

-/ 

--/  Parameter  Description: 

-j  name  •>  The  name  of  the  Ada  type  associated  with 
--/  a  van  able. 

--/  return  ->  The  internal  Identifier  used  to  refer 
--/  to  the  type. 

-I 

--/  Notes: 

--/  When  a  type  is  not  found  in  the  type  database, 

--/  the  exception  "type__not_found"  is  raised.  Given  that 
--/  all  this  information  is  coming  from  the  same  source,  this 
--/  exception  should  never  be  used. 

-I . . . . . 

package  Cisc  renames  Case_lnsensitive_String_Comparison; 

Type_Location:  Valid_Rtm_Type; 

begin 

--  Loop  through  the  types  in  the  database  until  we  find  the  type  or 

-  run  out  of  database. 

for  Type_Location  in  O..Number_Of_Valid_Types  loop 
If  Cisc.Equal  (Name, 

Valid_Rtm_Types(Type_location).Type_Name_As_String(Name’range )) 

then 

RETURN  Type_Location; 

end  If ; 
end  loop  ; 

RAISE  Type_Not_Found; 
end  Find; 
pragma  page; 


separate  (Types_Manager) 

procedure  Get_Type_lnformation  (Typejdentifier:  In  Valid_Rtm_Type; 
Type_Length:  out  Integer; 

Indirectionjndicator:  out  Boolean)  is 

/ . * . 

--/  Description: 

--/  This  module  takes  a  type  identifier  and  returns  detailed 
--/  information  about  the  structure  of  the  type  to  the  caller. 

~/ 

--/  Parameter  Description: 

*-/  typejndentifier  ->  Identifier  of  the  type  about  which 
--/  information  is  needed. 

*-/  typejength  ->  The  size  of  the  underlying  type  in  the 
--/  size  of  the  storage  units  used  by  the  RTM 

--/  (i.e.,  smallest_units). 

--/  indirectionjndicator  ->  Logical  flag  which  when 
--/  true  =>  an  access  type 

- 1  false  =>  any  other  type 

/ . . . 

begin 

-  Extract  the  length  (in  smallest_units)  of  the  type. 

Type_Length  :=  Valid_Rtm_Types(Type_ldentifier).Type_Length; 

--  Determine  if  the  type  is  an  access  pointer,  based  on  its  level 
--  of  indirection,  i.e.,  0  ~>  no  indirection. 

If  Valid_Rtm_Types(Type_ldentifier).lndirection_Level  =  0  then 
Indirectionjndicator  :=  False; 
else 

Indirectionjndicator  :=  True; 

end  If  ; 


end  Get_Type_lntormation; 
pragma  page; 


/  Module  Name: 

•/  Variable_Database 

7 

7  Module  Type: 

7  Package  Specification 

7 

7  Module  Purpose: 

/  This  module  manages  the  interface  to  the  underlying  variable 
7  database. 

/  Module  Description: 

7  This  module  manages  the  variable  database  created  out  of 
7  information  obtained  via  the  libraryjnterface. 

7  The  variable_database  holds  all  the  variables 
7  accessible  to  the  user.  This  package  hides  all 
7  details  about  the  structure  and  manipulation  of  the 
7  variable  database.  It  also  knows  how  to  initialize  the 
7  database  at  startup  time. 

■I 

7  This  module  manages  the  structure  that  is  the  variable_database; 

■/  the  actual  data  comes  from  the  Libraryjnterface,  which  is 
/  responsible  for  the  fidelity  and  content  of  the  variable_database. 

/  The  Variable_Database  package  has  all  the  data  we  need 
7  about  a  variable  (name,  base_address,  type_name,  and  typejdentifier). 

■I 

7  References: 

■I  Design  Documents: 

■  I  Real-  Time  Monitor  Requirements 
7  Real-Time  Monitor  Design 

7 

7  User's  Manual: 

7  RTM  User's  Manual 

■I 

/  Testing  and  Validation: 

7  none 

■/ 

7  Notes: 

7  none 

7  Modification  History: 

7  08Jul87  rfvs  created 

7 

7  Distribution  and  Copyright  Notice: 

7  TBD 

7 

/  Disclaimer: 

7  T/w's  wo/*  was  sponsored  by  the  Department  of  Defense. 

7  The  views  and  conclusions  contained  in  this  document  are 
7  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
7  representing  official  policies,  either  expressed  or  implied, 

7  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

7  ffte  Department  of  Defense,  or  the  U.S.  Government.  ’ 

■I . 
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with  Library Jnterf ace; 

-  Use  type  "vahable_representation". 


package  Variable_Database  is 

type  The_Variable  Is  access  Library_lnterface.Variable_Representation; 

procedure  lnitialize_Database; 

--/ . . 

--/  Description: 

--/  This  module  is  responsible  for  building  the  variable  database 
--/  by  whatever  means  are  available. 

-I 

--/  Parameter  Description: 

--/  none 

/ . . . 

function  Find  (Name:  In  String)  return  The_Variable; 

-/ . 

--/  Description: 

--/  This  function  searches  the  variable  database  for  the  variable 
--/  passed  in. 

■*/ 

--/  Parameter  Description: 

--/  name  ->  The  name  of  variable  to  look  up. 

**/ 

--/  Notes: 

--/  When  a  vahable  is  not  found  in  the  variable  database, 

--/  the  exception  mvariable_not_found"  is  raised. 

-I . 

-/ . 

--/ 

--/  The  exception  used  to  signal  that  a  variable  is  not  in 
--/  the  vahable  database,  and  thus  not  available  to  the  user. 

-/ .  '■ 

Variabie_Not_Found:  exception  ; 

end  Variabie_Database; 
pragma  page; 
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--/ . 

--/  Module  Name: 

--/  Variable_Database 
--/ 

--/  Module  Type: 

--/  Package  Body 

-I 

--/  Module  Description: 

~l  This  module  encapsulates  the  actual  structure  of  the  variable 
--/  database.  The  database  is  stored  as  an  ordered  binary  tree. 

--/ 

--/  References: 

--/  Design  Documents: 

--/  Real-Time  Monitor  Requirements 
- 1  Real-  Time  Monitor  Design 

-I 

--/  User's  Manual: 

-j  RTM  User's  Manual 

-I 

-I  Testing  and  Validation: 

--/  none 

"/ 

--/  Notes: 

--/  none 

-I  Modification  History: 

--/  16Apr87  rlvs  created 

-I 

--/  Distribution  and  Copyright  Notice: 

-/  TBD 

-I 

--/  Disclaimer: 

--/  Trt/'s  MWfr  was  sponsored  by  the  Department  of  Defense. 

-/  The  views  and  conclusions  contained  in  this  document  are 
~l  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  the  Department  of  Defense,  or  the  U.S.  Government.  ’ 

--/'** . 

pragma  page; 
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with  Casejnsensiti ve_String_Comparison ; 

-  Use  the  services  "less"  and  "equal". 

with  Binaryirees; 

~  Use  generic  package  "binarytrees ". 

-  Use  type  "tree". 

-  Use  service  "create". 


package  Variable_Database  is 

--  Set  up  a  shorthand  notation  for  the  stnng  package 


package  Cisc  renames  Case_lnsensitive_String_Comparison; 
pragma  page; 
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--  Internal  procedures 


-  Define  the  ordering  function  to  be  used  by  the  tree  package, 

-  and  create  a  package  to  manipulate  trees  of  pointers. 

function  Ordering  (Left:  The_Variable; 

Right:  The_Variable)  return  Boolean; 

package  Db  is  new  Binarytrees  (Itemtype  =>  The_Vanable, 

"<"  =>  Ordering); 

--  Create  the  variable  database. 

Variable_Database:  Db.Tree  :=  Db. Create; 

function  Ordering  (Left:  The_Variable; 

Right:  The_Variable)  return  Boolean  is 

-/ . . 

--/  Description: 

--/  This  defines  the  ordering  relation  on  the  variable  database. 

--/  Since  the  elements  in  the  tree  are  pointers,  and  we  want  the 
-/  tree  to  be  ordered  alphabetically  by  variable  name,  we  define 
--/  the  ordering  function  to  use  the  pointers  storedin  the  tree 
~l  and  access  the  name  component  of  the  record. 

-I 

--/  Parameter  Description: 

--/  left  ->  left  child  of  the  parent  node. 

-/  right  ->  right  child  of  the  parent  node. 

-/  return  •>  true,  if  the  left  child's  name  is  less  than 
--/  the  right  child's  name. 

--/  false,  otherwise. 

--/ 

--/  Notes: 

--/  none 

-1 . 

begin 

RETURN  Cisc.less  (Left.Variabie_Name,Right.Variab!e_Name); 

end  ; 

-  Visible  procedures 

procedure  lnitialize_Database  is  separate  ; 


pragma  page; 


function  Find  (Name:  in  String)  return  The_Variable  Is 

/ . 

--/  Description: 

--/  This  function  searches  the  van  able  database  for  the  variable 
--/  passed  in.  It  does  this  by  making  a  tree  iterator  and  walking 
--/  the  binary  tree.  Since  the  tree  is  ordered,  this  amounts  to  a 
- 1  binary  search  of  the  tree. 

--/ 

--/  Parameter  Description: 

--/  name  ->  The  name  of  variable  to  look  up. 

-I 

-I  Notes: 

--/  When  a  variable  is  not  found  in  the  variable  database, 

--/  the  exception  "variable_not_found"  is  raised. 

--/ . * . 

Database_Position:  Db.Treeiter; 

Variable_Location:  The_Variable; 

begin 

--  We  locate  the  variable  of  interest  by  iterating  through  all  the 
-  variables  in  the  database  until  find  it  or  run  out  of  tree. 

Database_Position  :=  Db.Maketreeiter(Variable_Database); 
while  Db.More(Database_Position)  loop 

Db.Next(Database_Position,VariableJ-ocation); 

If  Cisc.Equal(Variable_Location.Variable_Name(Name’range  ),Name) 

then 

RETURN  Variable  ^Location; 

end  If ; 
end  loop  ; 

RAISE  Variable_Not_Found; 
end  Find; 

end  Variable_Database; 
pragma  page; 


with  Unchecked_Dea!!ocation, 

--  Use  the  service  "unchecked_deallocation". 

with  Types_Manager; 

-  Use  the  service  "find". 

separate  (Variabie_Database) 
procedure  lnitialize_Database  Is 

/ . 

--/  Description: 

--/  This  module  is  responsible  for  building  the  vanable  database 
--/  by  whatever  means  are  available. 

-I 

--/  Parameter  Description: 

--/  none 

-I 

--/  Notes: 

--/  All  of  the  system-dependent  issues  related  to  obtaining 
--/  object  addresses  have  to  be  isolated  in  these  packages: 

- 1  Libraryjnterface:  for  static  data  information. 

--/  Address_generator :  for  dynamic  data  information. 

~l  These  are  the  packages  that  must  be  changed  to  reflect  the 
- 1  system  configuration  and  environment. 

/ . 

procedure  Free  Is  new  Unchecked_Deallocation 

(Libraryjnterface.  Variable  J3epresentation,The_Variable); 

Variable_Position:  Libraryjnterface.  Variabie_fterator; 

Node_Root:  Db.Tree; 

Found_Variable:  Boolean; 

The_Next_Variable:  The_Variab!e; 

begin 

-  The  basic  operation  is  same  for  all  the  variables: 

Build  a  variable_representation  record. 

Insert  the  record  into  the  tree. 

-  Repeat  for  all  variables. 

Libraryjnterface.  Make_lterator(Variable_Position); 
while  Libraryjnterface. More(Variable_Position)  loop 
begin 

The_Next_Variable  :=  new  Libraryjnterface. Variable_Representation; 
Libraryjnterface. Get_Next 

(Thejterator  «>  Variable_Position, 

Variablejnfomnation  «>  The_Next_Variable.all ); 
The_Next_Variable.Data_Type  :«  Types_Manager.Find 
(Name  ■>  The_Next_Variable.Va.  l3ble_Type); 

Db.lnsertnode(N  *=>  The_Next_Variable, 

T  «>  Variable  JDatabase, 

Root  «>  Node_Root, 

Exists  ->  Found_Variable); 

exception 

when  Types_Manager.Type_Not_Found  => 

Free  (The_Next_Variable); 

end  ; 
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end  lnitialize_Database; 
pragma  page; 
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Module  Name: 

Library_lnterface 

Module  Type: 

Package  Specification 

Module  Purpose: 

This  module  provides  the  interface  needed  by  the  RTM  to  build 
the  vanable  database. 


--/  Module  Description: 

--/  This  package  presumes  an  interface  into  a  compiler  library 
--/  mechanism  that  is  capable  of  generating  an  address  for  any 
--/  statically  allocated  vanable.  The  interlace  is  extremely 
--/  simple;  it  consists  of  three  parts: 

-I 

--/  makejterator :  Initializes  an  iteration  object  and 

--/  allows  the  caller  to  step  through  the 

--/  library  structure  w/o  regard  to  its 

--/  organization. 

-I 

--/  get_next:  Returns  all  the  relevant  information  about 
--/  the  next  vanable. 

I 

I 

-/  more:  Signals  when  the  entire  structure  has  been 
■■/  traversed,  and  there  are  no  more  variables. 

•*/ 

--/  References: 

--/  Design  Documents: 

--/  Real-Time  Monitor  Requirements 

-  •/  Real- Time  Monitor  Design 

**/ 

--/  User's  Manual: 

--/  RTM  User's  Manual 

~/ 

--/  Testing  and  Validation: 

-/  none 

-*/ 

Notes: 


i  Modification  History: 

i  02Jun87  rtvs  created 


l  Distribution  and  Copyright  Notice: 

'  TBD 

f 

I  Disclaimer: 

i  ' This  work  was  sponsored  by  the  Department  of  Defense. 

I  The  views  and  conclusions  contained  in  this  document  are 
I  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
I  representing  official  policies,  either  expressed  or  implied, 

I  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 
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with  Types_Manager; 

-  Use  type  * type_identifier 


package  Library_lnterface  is 

-  The  interation  variable,  used  to  control  iteration. 

type  Variablejterator  is  private  ; 

-  The  information  stored  for  a  variable  in  the  database  is: 

vahable_name  ->  Full  Ada  path  name. 

base_address  •>  Memory  address  of  data  (in  application  memory). 
variable_type  ->  The  name  of  the  type. 

~  data_type  ->  The  type  identifier,  used  by  the  types_manager  to 
refer  to  a  type. 

type  Variable_Representation  is  record 

Variable_Name.  String(1..100)  :=  (others  =>  '  ’); 

Base_Address:  Integer  :=  0; 

Variable_Type:  String(1  ..100)  :=  (others  =>  '  ’); 

Data_Type:  Types_Manager.Valid_Rtm_Type; 
end  record  ; 

pragma  page; 
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procedure  Makejterator  (The_tterator  in  out  Variable  Iterator). 

--/ . * . 

--/  Description: 

--/  Makejterator  initializes  an  iteration  parameter  to  the  start  of 
--/  of  the  library  structure:  this  parameter  is  then  used  to 
--/  retrieve  information  from  the  structure 
--/ 

--/  Parameter  Description: 

--/  thejterator  ->  The  iteration  parameter  used  by  the 
--/  caller  to  access  the  next  item. 

-I . 

procedure  Get_Next  (Thejterator:  In  out  Variablejterator; 

Variable Jnformation:  out  Variable_Representation); 

--/ . 

--/  Description: 

-j  Get_Next  takes  an  iteration  parameter  and  returns  all  the 
--/  relevant  information  about  the  vanable. 

"/ 

--/  Parameter  Description: 

--/  thejterator  ->  The  iteration  parameter  used  by  the 
--/  caller  to  access  the  next  item. 

--/  return  ■>  All  the  available,  relevant  information  about  the  variable 

/ . 

function  More  (Thejterator:  In  Variable_!terator)  return  Boolean; 

/ . * . 

--/  Description: 

-- /  More  takes  an  iteration  parameter  and  determines  if  there  are 
--/  any  additional  variables  yet  to  be  processed. 

-I 

--/  Parameter  Description: 

*•/  thejterator  ->  The  iteration  parameter  used  by  the 
--/  caller  to  access  the  next  item. 

--/  return  ->  true  ==>  there  are  more  variables 
--/  false  =>  The  entire  structure  has  been  traversed 

/ . * - 

private 

type  Variablejterator  is  new  Integer; 

end  Libraryjnterface; 
pragma  page; 


--/  Module  Name: 

--/  Libraryjnteriace 
-I 

--/  Module  Type: 

--/  Package  Body 

-I 

--/  Module  Description: 

--/  This  package  presumes  an  interlace  into  a  compiler  library 
-j  mechanism  that  is  capable  of  generating  an  address  for  any 
--/  statically  allocated  variable.  This  interface  is  a  dummy 
-  I  package  that  simply  returns  the  addresses  of  the  static 
--/  data  defined  in  the  package  test_stub.  It  has  to  be  replaced 
--/  by  whatever  mechanism  is  available  on  the  target  machine. 

~l  -  ' 

--/  References: 

--/  Design  Documents: 

--/  Real-Time  Monitor  Requirements 
--/  Real-  Time  Monitor  Design 

-I 

--/  User’s  Manual: 

—/  RTM  User's  Manual 

*■/ 

--/  Testing  and  Validation: 

~l  none 

*•/ 

--/  Notes: 

--/  none 

--/  Modification  History: 

--/  02Jun87  rlvs  created 

-I 

--/  Distribution  and  Copyright  Notice: 

-/  7BD 
--/ 

--/  Disclaimer: 

--/  *77)/'s  wo/*  was  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
--/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied, 

~l  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  the  Department  of  Defense,  or  the  U.S.  Government. ' 


pragma  page; 
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with  System; 

-  Use  type  "address". 

with  Unchecked_Conversion; 

-  Use  service  "unchecked^  conversion 

with  Test_Stub; 

--  Use  data  objects  defined  here  for  testing  the  monitor. 


package  Libraryjnterface  is 

-  Used  to  convert  all  the  system  addresses  into  integers  so  that 

-  they  can  be  stored  in  the  variable  database.  In  a  system  where 

--  an  address  map  is  used,  this  routine  will  need  to  be  reimplemented. 

function  Get_Address  is  new  Unchecked_Conversion 
(Source  =>  System.Address, 

Target  =>  Integer); 

pragma  page; 


procedure  Makejterator  (Thejterator.  In  out  Variablejterator)  is 

/ . . . * . 

--/  Description: 

--/  Makejterator  initializes  an  iteration  parameter  to  the  start 
--/  of  the  library  structure ;  this  parameter  is  then  used  to 
--/  retrieve  information  from  the  structure. 

-I 

--/  Parameter  Description: 

~l  thejterator  ->  The  iteration  parameter  used  by  the 
--/  caller  to  access  the  next  item. 

-I 

--/  Notes: 

--/  none 

--/*"* . . 

begin 

The_lterator  :=  0; 
end  Make_lterator; 

pragma  page; 
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procedure  GejNext  (The_l1erator:  in  out  Variablejterator, 

Variable_!nformation:  out  Variable_Representation)  is 


-(Description: 

-I  Get_Next  takes  an  iteration  parameter  and  returns  all  the 
--/  relevant  information  about  the  variable. 

-I 

-( Parameter  Description: 

--/  thejterator  ■>  The  iteration  parameter  used  by  the 
-/  caller  to  access  the  next  item. 

--/  return  ->  All  the  available,  relevant  information  about  the  variable 

i 

-I 

--/  Notes: 

--/  none 

/ . . . . . 

begin 

case  Thejterator  is 
when  0  => 

Variable Jnformation.  Variable  JJame(1 .  20)  :=  Tesjstub.myjnteger". 

Variable Jnformation.  Base_Address  :=  Get_Address(Test_Stub.  My Jnteger’ Address) ; 
Variable_lnformation.Variable_Type(t..7)  :=  "integer"; 
when  1  => 

Variablejnformation.  Variable J^ame(1 .  .17):=  *test_stub  my_real"; 

Variablejnformation. Base_Address  :=  Get_Address(Test_Stub.My_Real  Address); 
Variablejnformation. Variable_Type(1.. 5)  :=  "float"; 

when  2  => 

Variablejnformation. Variable  JJame(1..  17)  :=  "test_stub.my_enum"; 
Variablejnformation. Base_Address  :«  Get_Address(Test_Stub.My_Enum  Address); 
Variablejnformation. Variable_Type(1  ..9)  :=  "rtm_enum1", 

when  3  => 

Variable  Jnformation.  Variable  Jvlame(1..  15)  :=  "test_stub.int_2"; 
Variable_lnformation.Base_Address  :=  Get_Address(Test_Stub.lnt_2  Address); 
Variable_lnformation.Variable_Type(1..7)  :=  "integer"; 

when  4  => 

Variable  Jnformation.  Variable  Jvlame(1  ..20)  :=  "test_stub.my_pointer"; 
Variable_lnformation.Base_Address  :=  Get_Address(Test_Stub.My_Pointer’ Address); 
Variablejnformation. Variable_Type(1  ..10)  :=  "rtm_record"; 
when  5  => 

Variablejnformation, VariableJ^ame(1.. 22)  :=  "test_stub.my_pointer.i"; 
Variable_lnformation.Base_Address  :=  Get_Address(Test_Stub.MyJ:>ointer.rAddress); 
Variable  Jnformation.  Variable  J'ypeO  ..7)  >  ’integer"; 

when  6  => 

VariableJnformation.Variable_Name(1..22)  :=  "test_stub.my_pointer.r"; 

Variable  Jnformation.  Base_Address  :*  Get_Addre  ss  (Test_Stub .  My_Pointer .  R'  Address) ; 
Variablejnformation. Variable_Type(1.. 5)  :=  "float"; 

when  7  => 

Variablejnformation. Variable_Name(t  ..18)  :=  "test_stub.my_array"; 
Variablejnformation. Base_Address  :■  Get_Address(Test_Stub.My_Amay  Address); 
Variablejnformation. Variable J"ype{1.. 8) "an-ayJO"; 

when  8  => 

Variablejnformation. Variable_Name(1  ..21 )  :=  *test_stub.my_array(2)’; 
Variablejnformation. Base_Address  :*  Get_Address(Test_Stub.My_Array(2)  Address); 
VariableJnformation.Variable_Type(1..7)  :=  "integer"; 

when  others  «=> 
null  ; 
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end  case ; 

The_lterator  :=  Thejterator  +  1 , 
end  Get  Next; 

pragma  page; 
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function  More  (The_tterator:  In  Variablejterator)  return  Boolean  is 

/ . * . 

--/  Description: 

--/  More  takes  an  iteration  parameter  and  determines  if  there  are 
--/  any  additional  variables  yet  to  be  processed. 

-I 

--/  Parameter  Description: 

--/  thejterator  ->  Trie  iteration  parameter  used  by  the 
--/  caller  to  access  trie  next  item. 

--/  return  >  true  ==>  there  are  more  variables 
--/  false  ==>  the  entire  structure  has  been  traversed 

-I 

--/  Notes: 

--/  none 

-I . 

begin 

It  Thejterator  <=  8  then 
RETURN  True; 
else 

RETURN  False; 
end  If ; 
end  More; 

end  Library  Interface; 
pragma  page; 
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i  Module  Name: 

1  Address_Generator 

i 

I  Module  Type: 

i  Package  Specification 

i 

I  Module  Purpose: 

l  Defines  the  address  abstraction  used  to  refer  to  physical 
1  addresses  in  application  memory  and  provides  the  interlace 
I  needed  to  compute  the  address. 


'  Module  Description: 

'  This  module  hides  all  the  details  surrounding  the  generation 
'  of  object  address  by  presenting  one  uniform  interface  to 
'  the  rest  of  the  RTM. 

f 

1  References: 
i  Design  Documents: 

1  Real-Time  Monitor  Requirements 
1  Real-Time  Monitor  Design 


--/  User's  Manual: 

--/  RTM  User’s  Manual 

-•/ 

--/  Testing  and  Validation: 

--/  none 

“I 

--/  Notes: 

--/  none 

--/  Modification  History: 

--/  04Aug87  rtvs  created 
--/ 

-/  Distribution  and  Copyright  Notice: 

-I  TBD 

--/ 

--/  Disclaimer: 


Testing  and  Validation: 

none 


' This  work  was  sponsored  by  the  Department  of  Defense. 

The  views  and  conclusions  contained  in  this  document  are 
solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
representing  official  policies,  either  expressed  or  implied, 
of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 
the  Department  of  Defense,  or  the  U.S.  Government." 


-/  "This  wort 
--/  The  vie* 

--/  solely  the 

--/  represent 

--/  of  Carner 

--/  the  Depa 

-l . 

pragma  page; 


October  1987 


,-\r.  -\ 

JV* njfc  .Vi*  ,*— •  A.**. 


.  -V  A  A  . 


,  *w  .  V  ,  V  ..A-  iA- 


with  Variable_Database; 


package  Address_Generator  is 

-  Address  abstraction: 

base_address  ->  Static  base  of  the  object. 
address_ofiset  ->  Offset  from  the  base  address  of  object 
(for  components  of  compound  objects), 
indirection  ->  Boolean  marker  for  identifying  access  type  objects: 
true  =>  access  type 
false  =>  any  other  (non-access)  type 

type  Address_Representation  is  record 
Base_Address:  Integer; 

Address_Offset:  Integer; 

Indirection:  Boolean; 

end  record  ; 

--  Default  address 

NuH_Address:  Address_Representation  :=  (0,0, False); 

function  Compute_Address  (Variable_Name:  in  String) 
return  Address_Representation; 

--/  Description: 

This  module  takes  the  database  identifier  of  a  variable  and 
--/  computes  the  address  of  the  variable. 

-I 

--/  Parameter  Description: 

--/  the_vanable  ■>  Name  of  variable  for  which  address  is  needed. 

--/  return  ->  Computed  address  of  the  variable. 

-I . 

end  Address_Generator; 
pragma  page; 
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1  Module  Name: 

'  A  ddress_  Generator 

i 

1  Module  Type: 

1  Package  Body 


1  Module  Description: 

'  This  module  Is  responsible  for  implementing  the  address 
1  computation  needed  by  the  RTM.  Currently,  this  is  totally 
1  embodied  by  the  Compute_Address  procedure. 

1 

>  References: 
i  Design  Documents: 

1  Real-Time  Monitor  Requirements 
i  Real-Time  Monitor  Design 

i 

i  User's  Manual: 

1  RTM  User’s  Manual 


Testing  and  Validation: 


1  Notes: 


Modification  History: 

’  08Aug87  rtvs 


created 


Distribution  and  Copyright  Notice: 

TBD 

Disclaimer: 

This  work  was  sponsored  by  the  Department  of  Defense. 

The  views  and  conclusions  contained  in  this  document  are 
solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
representing  official  policies,  either  expressed  or  implied, 
of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 
the  Department  of  Defense,  or  the  U.S.  Government." 


with  Types_Manager; 

--  Use  the  service  "find". 


package  Address_Generator  is 

function  Compute_Address  (Variable_Name:  In  String) 

return  Address_Representation  Is  separate  ; 

end  Address_Generator; 
pragma  page; 
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separate  (Address_Generator) 

function  Compute_Address  (Variable_Name:  in  String) 
return  Address_Representation  is 

/ . 

--/  Description: 

~l  This  module  takes  the  database  identifier  of  a  vanable  and 
~ 1  computes  the  address  of  the  vanable. 

-I 

--/  Parameter  Description: 

--/  the_vahable  ->  Name  of  variable  for  which  address  is  needed 
--/  return  ->  Computed  address  of  the  variable. 

--/ 

--/  Notes: 

--/  No  address  offset  is  computed  since  all  accessible  variables  are 
--/  in  the  database  and  the  base_address  already  has  the  offset 
- 1  taken  into  account. 

-I . * . * . 

The_Variable:  Variable_Database.The_Variable; 

Address:  Address_Generator.Address_Representation  :=  Null_Address; 
Address_Offset:  constant  Integer  :=  0; 

Data_Length:  Integer; 

Access_Flag:  Boolean; 

begin 

The_Variable  :=  Variable_Database.Find(Variable_Name); 

Ty pes_Manager.Get_Ty pe_lnf ormation  (Ttie_V ariable .  Data_T ype , 
Data_Length, 

Access_Flag); 

Address  :=  (The_Variable.Base_Address, 

Address_Offset, 

Access_Flag); 

RETURN  Address; 
exception 

when  Variable_Database.Variabie_Not_Found  => 

RAISE  ; 

when  Types_Manager.Type_Not_Found  => 

RAISE  ; 

when  others  => 
null ; 

end  Compute_Address; 
pragma  page; 
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-I . 

--/  Module  Name: 

--/  Dialogue^manager 

-I 

--/  Module  Type: 

--/  Package  Specification 

-I 

-I  Module  Purpose: 

--/  This  package  manages  the  interface  to  the  application.  It 

--/  does  this  by  hiding  all  details  about  retrieving  variable  information 

--/  from  the  application. 

-/  Module  Description: 

--/  The  Dialogue_Manager  manages  the  interface  to  the  application  in 
--/  a  number  of  ways: 

--/  1.  It  knows  how  to  talk  to  the  Rtm_  Core,  which  is  the 

--/  RTMs  interface  to  the  application. 

--/  2.  It  knows  how  to  convert  data  retrieved  from  the  Rtm_Core 

--/  into  sthngs  which  the  user  can  understand. 

-I 

--/  References: 

--/  Design  Documents: 

-j  Real-Time  Monitor  Requirements 

- 1  Real-Time  Monitor  Design 

**/ 

--/  User's  Manual: 

-I  RTM  User's  Manual 

-! 

--/  Testing  and  Validation: 

--/  none 

-*/ 

--I  Notes: 

--/  none 

-I 

--/  Modification  History: 

~l  20 Aprs  7  rlvs  created 

-I 

--/  Distribution  and  Copyright  Notice: 

--/  TBD 

-I 

--/  Disclaimer: 

~l  This  work  was  sponsored  by  the  Department  of  Defense. 

--/  7Y)e  views  and  conclusions  contained  in  this  document  are 
- 1  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 

--/  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

-/  the  Department  of  Defense,  or  the  U.S.  Government. ' 

-I . . 

pragma  page; 


with  Calendar;  use  Calendar; 

-  The  "time"  and  "duration"  types  are  used. 


package  Dialogue_Manager  Is 

-  Internal  (RTM)  representation  of  a  variable. 
type  Variabiejdentifier  is  private  ; 

-  All  value  functions  return  items  of  this  type. 
subtype  Value_String  is  String(1..80); 

--  The  direction  flag,  informs  the  Dialogue_Manager  about  the  direction  of 

-  access  on  a  vanable: 

read  =>  Get  the  data  from  the  application, 
write  =>  Put  the  data  in  the  application. 
type  lo_Usage  is  (Read, Write); 

pragma  page; 
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tunction  Get_Vaiue  (Vid:  in  Variablejdentifier; 

Number_Of_Characters:  in  Integer  :=  80) 
return  Value_String; 

~/ . . . 

--/  Description: 

--/  Converts  the  current  value  of  a  variable  (denoted  as  a 

-/  variable  identifier)  into  a  character  string  containing 

--/  the  requested  number  of  characters.  Since  this  operation 

--/  requires  a  vahablejdentifier,  it  can  only  be  performed  on  an 

-j  active  variable.  This  function  returns 

--/  a  string  appropriate  to  the  type  of  the  variable. 

--/ 

-•/  Parameter  Description: 

--/  vid  ->  The  identifier  of  the  variable  whose  value  is  needed 
--/  (obtained  from  getjdentifier  above). 

--/  number_of_characters  ->  The  number  of  characters  needed  in  the 
--/  value  string. 

--/  return  ->  A  string  containing  a  displayable  value.  For  a 
--/  composite  structure,  the  individual  components 

- 1  are  delimited  by  the  separator  selected. 

/ . 

pragma  page; 


/  / 


function  Get_Time_Of_Vaiue  (Vid:  In  Variabie_ldentifier) 
return  Value_String; 

--/ . 

--/  Description: 

--/  Convert  the  time  associated  with  a  variable  value  (i.e.,  the 
--/  collection  time)  into  a  displayable  string.  Since  this  operation 
--/  requires  a  vahablejdentifier,  it  can  only  be  performed  on  an 
-/  active  van  able. 

-I 

--/  Parameter  Description: 

—j  vid  ->  The  identifier  of  the  variable  whose  time  is  needed 
-/  (obtained  from  getjdentifier  above). 

--/  return  ->  The  collection  time  of  the  current  value  as  a 
--/  displayable  string. 

-I . . 

pragma  page; 


132 


October  1987 


procedure  Set_Value  (Vid:  In  Variable_ldentifier; 

Value:  In  Value_Stnng); 

-I . 

--/  Description: 

--/  Sets  the  value  of  the  selected  variable,  normally  in  preparation  for 
--/  a  set  (write)  operation.  Since  this  operation  requires  a 
~l  vahablejdentifier,  it  can  only  be  performed  on  an  active 
-/  variable. 

-I 

-/  Parameter  Description: 

-/  vid  ->  The  identifier  of  the  variable  whose  value  is  being  set 
--/  (obtained  from  getjdentifier  above). 

--/  value  ->  A  string  containing  the  value  to  deposit  into 
--/  the  variable  internal  representaion.  For  composite 

--/  structure,  the  separator  selected. 

- 1 . . 

pragma  page; 
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function  Activate  (Name:  In  String, 

Rate:  In  Duration; 

Starting_Time:  Time; 

Usage:  in  loJJsage)  return  Variablejdentifier; 

/ . . . . . 

--/  Description: 

--/  This  entry  activates  vanabtes  for  data  collection  or  modification. 

--/  It  keeps  track  of  which  vanabtes  in  the  variable  database  are  of 
--/  interest  to  the  user. 

-I 

--/  Parameter  Description: 

--/  vid  ■>  The  identifier  of  the  variable  to  activate 
-j  (obtained  from  getjdentifier  above). 

--/  rate  ->  The  repetition  rate  at  which  the  variable  is  to 
--/  be  accessed: 

--/  a  value  of  0  —>  a  one-time  access 

--/  a  value  >  0  ==>  read  the  value  every  rate  seconds 

-/  starting_time  ->  The  time  of  day  the  start  command  was  processed. 
--/  usage  ->  Direction  of  access  on  the  variable. 

-I . * . *'*' 

pragma  page; 
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procedure  Deactivate  (Vid:  in  Variablejdentifier; 

Usage:  In  loJJsage); 

-/ . 

--/  Description: 

--/  Informs  the  dialogue_manager  that  the  variable  is  no  longer 
- /  of  interest  and  data  collection  is  not  needed. 

-I 

--/  Parameter  Description: 

--/  vid  ->  The  identifier  of  the  variable  to  deactivate 
--/  (obtained  from  getjdentifier  above). 

-/  usage  ->  Direction  of  access  on  the  vanable  being  deactivated 
--/  (since  it  is  possible  tor  a  vanable  to  activate  in 

--/  both  directions). 

/ . . 

pragma  page; 
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--/ 

--/  Exceptions  rested  and  propagated 

-I 

/ . 

-  Issued  when  a  request  is  made  for  a  variable  that  is  not  available 

-  to  the  user  through  the  RTM. 

Variable_Not_Found:  exception  ; 

-  Issued  when  a  request  is  made  to  deposit  the  value  of  a  variable,  but  the 

-  value  is  not  appropriate  for  the  type  of  the  vanable. 
lllegai_Value:  exception  ; 

private 

type  Active_List_Representation  (Length_Of_Value:  Positive); 

type  Variablejdentifier  is  access  Active_Ust_Representation; 

end  Dialogue_Manager; 
pragma  page; 
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/ . 

--/  Module  Name: 

--/  Dialogue_Manager 

-I 

--/  Module  Type: 

--/  Package  Body 

-/ 

--/  Module  Description: 

--/  The  dialogue_manager  is  responsible  for  the  interlace  to  the 
— /  application,  and  as  such,  it  needs  to  know  a  great  deal  more 
--/  about  the  Ada  vanabtes  than  tne  user  does.  To  do  this  work. 

- 1  the  dialogue_manager  is  divided  into  three  parts: 

--/ 

--/  1.  The  dialogue_manager,  which  is  the  interface 

--/  -  /o  a//  the  services  performed: 

--/  getting  identifiers 

--/  activating  variables 

--/  retheving  values 

-I 

--/  //.  Collect_data  package,  that  knows  how  to  collect 

--/  /rte  da/a  from  the  core  and  how  to  convert  data  into 
--/  sthngs  which  represent  a  display  able  value. 

--/  This  is  a  highly  volatile  package,  which  must  have 
--/  a  conversion  routine  available  for  every  possible 
~l  Ada  type  which  will  be  monitored. 

--/ 

--/  References: 

--/  Design  Documents: 

--/  Real-Time  Monitor  Requirements 
-- /  Real-  Time  Monitor  Design 

-I 

--/  User's  Manual: 

--/  ATM  User's  Manual 

-■/ 

--/  Testing  and  Validation: 

--/  none 

-■/ 

--/  Notes: 

--/  none 
--/ 

-I -  - 

-/  Modification  History: 

~l  30Apr87  rfvs  created 
--/ 

~l  Distribution  and  Copyright  Notice: 

-I  TBD 
-/ 

-/  Disclaimer: 

--/  'This  work  was  sponsored  by  the  Department  of  Defense. 

--/  77ie  wews  and  conclusions  contained  in  this  document  are 
--/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U  S.  Air  Force, 


y  / 


with  Address_Generator, 

-  Use  the  type  "address^  representation " 

with  VariableDatabase; 

--  Use  the  type  * the_vanable 

-  Use  the  services  "find"  and  "intialize_database". 

with  Types_Manager; 

--  Use  the  services  "convert_value_to_string",  "convert_stnng_to_value", 

-  and  "get_typejnformation". 

with  Lists: 

--  This  is  a  generic  linked  list  package  which  is  instantiated  and  used  to 

-  manipulate  list  objects. 

with  Sysgen; 

-  Need  access  to  the  sysgen  parameters  that  control  the  interface  to  the 

-  Rtm_Core. 


package  Diaiogue_Manager  Is 

--  This  package  encapsulates  the  task  runs  asynchronously  from  the  rest 

-  of  the  monitor,  collecting  data  from  the  application,  and  depositing 

-  data  into  the  application.  The  mam  reason  for  the  package  around  the 

-  task  is  to  compensate  for  a  VAX/VMS  problem  with  elaborating  subroutines 

-  local  to  the  body  of  a  task  at  run  time. 


package  Coliect_Data  Is 

procedure  From_Appiication; 
-tbd  task  from_apphcation  is 
--tbd  entry  initiate ; 

-tbd  entry  get_next_set; 

-tbd  end  1rom_apph  cation ; 
end  Collect  Data, 


type  Value_Representation  Is  array  (Positive  range  <>)  of 
Sysgen.  SmaiiestJJnit, 

-  While  the  vanable_database  contains  information  about  all  the 

-  vanables  in  the  system,  the  RTM  is  only  concerned  with  a  subset  of  these 

-  vanables  at  any  one  time.  To  keep  track  of  the  variables  currently 

-  relevant  to  the  RTM,  we  introduced  the  concept  of  active  variables. 

-  The  discussion  below  describes  the  implementation  of  active  variables. 

-  Active_hst_representation  defines  the  data  needed  to  periodically 

-  access  a  single  variable  m  the  application: 

database_identifier  ->  Pointer  to  the  variable's  data  in  the 
variable  database. 

-  object_address  ->  Address  of  the  variable/object  at  the  time  of 

activation. 

update _rate  ->  The  rate  at  which  the  variable  is  to  be  read. 
next_scheduied_readmg  ■>  The  time  of  the  next  reading  of  the 


variable  out  of  application  memory, 
value  ■>  The  current  value  of  the  variable,  as  read  from 
application  memory  or  set  by  the  user. 
time_tag  ■>  Time  associated  with  the  current  value. 

type  Active_List_Representation  (LengthJDf_Value:  Positive)  is  record 
Database Jdentifier:  Variable  JDatabase.The_Variable; 
Object_Address:  Address_Generator.Address_Representation; 
Update_Rate:  Duration; 

Next_Scheduled_Reading:  Time; 

Value:  Value_Representation  (1  ..Length  JDf_Value)  := 

(1.. Length  JDfValue  =>  0); 
time_tag:  time; 
end  record  ; 

--  Since  we  are  almost  always  going  to  be  working  with  several  variables 

-  at  a  time,  we  organize  all  the  active  variables  into  a  linked  list. 

-  To  do  this,  we  must  define'an  equality  operator  for  list 

-  items  and  mstatiate  a  generic  list  package  with  the  item  representation 
--  and  the  equality  definition  (defined  further  below).  Now,  we  have  a 

-  linked  list  of  pointers  to  the  active  variable  representations. 

function  Equality  (Left:  Variablejdentifier; 

Right:  Variablejdentifier)  return  Boolean; 

package  Active_Lists  is  new  Lists  (Itemtype  =>  Variablejdentifier, 

Equal  =>  Equality); 

--  Once  we  have  the  list  manipulator  in  place,  we  define  two  lists  of 

-  active  vanabies: 

active_read_list  •>  Holds  all  the  varaiables  currently 
being  read  by  the  RTM. 

active_wnte_hst  ->  Holds  all  the  variables  currently 
being  written  by  the  RTM. 

Active_Read_Ust:  ActiveJJsts.List  :=  Active JJsls. Create; 
Active_Write_List:  Active_Lists.Lis1  :=  ActiveJJsts. Create; 


package  Cohect_Data  Is  separate  ; 
pragma  page; 
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function  Equality  (Lett:  Variablejdentifier; 

Right:  Variablejdentifier)  return  Boolean  is 

~/ . . . 

--/  Description: 

-I  This  function  defines  the  meaning  of  equality  on  the  items 
--/  of  type  active_list_representation.  We  needed  to  define  this 
--/  since  normal  equality  would  have  compared  two  access  values  for 
--/  numeric  equality  (which  would  not  have  worked).  The  meaning 
--/  of  equality  of  two  enthes  in  the  active  list  is: 

--/  compare  the  value  of  the  pointers  in  the  active  list. 

--/  if  they  match  ==>  the  two  items  are  pointing  at  the 
-  /  same  variable  and  are  therefore 

-/  equal. 

-I 

--/  Parameter  Description: 

--/  left  ->  pointer  to  an  active Jist_representation  record 
-/  hght  ->  pointer  to  an  active_list_representation  record 
--/  return  ->  boolean, 

-- /  true  ->  if  the  pointer  component  of  both  records  point  at 

--/  the  same  item 

--/  false  ->  if  they  point  at  different  items 

-I 

--/  Notes: 

--/  none 

~ / . . . 

begin 

RETURN  Left  =  Right; 

end  ; 


pragma  page; 
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function  Get_Value  (Vid:  In  Variablejdentifier; 

Number_Of_Characters:  In  Integer  :=  80) 
return  Value_String  is 

--/ . . . 

--/  Description: 

--/  Converts  the  current  value  of  a  variable  (denoted  as  a 
--/  variable  identifier)  into  a  character  stnng  containing 
--/  the  requested  number  of  characters.  This  function  returns 
--/  a  string  appropriate  to  the  type  of  the  variable. 

-I 

-/  Parameter  Description: 

— /  vid  ->  The  identifier  of  the  variable  whose  value  is  needed 

--/  (obtained  from  getjdentifier  above). 

--/  number_of_characters  ->  The  number  of  characters  needed  in  the 
--/  value  string. 

--/  return  ->  A  string  containing  a  displayable  value.  For  a 
composite  structure,  the  individual  components 
--/  are  delimited  by  the  separator  selected. 

--/  Notes: 

--/  none 

--/ . * . . . * . * . . 

Value:  Value_String; 

begin 

Coiiect_Data.From_Application; 

Types_Manager.Convert_Value_To_String(Vid.DatabaseJdentifier.Data_Type, 

Vid.Value(1)’Address, 

Number_Of_Characters, 

Value); 

RETURN  Value; 
end  Get_Value; 


pragma  page; 


function  Get_Time_Of_Value  (Vid:  in  Vanable_ldentifier) 
return  Vaiue_String  is 

/ . 

--/  Description: 

--/  Convert  the  time  associated  with  a  variable  value  (i.e.,  the 
--/  collection  time)  into  a  displayable  string. 

-I 

-/  Parameter  Description: 

--/  vid ->  The  identifier  of  the  variable  whose  time  is  needed 
--/  (obtained  from  getjdentifier  above). 

-/  return  ->  The  collection  time  of  the  current  value  as  a 
--/  displayable  stnng. 

-I 

--/  Notes: 

--/  none 

-I . 

begin 

RETURN  **; 

end  Get_Time_Of_Value; 
pragma  page; 
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procedure  Set_Value  (Vid:  in  Variable_identifier; 

Value:  in  Value_String)  is 

/ . * . 

--/  Description: 

--/  Sets  the  value  of  the  selected  variable,  normally  in  preparation 
--/  for  a  set  (write)  operation.  The  types_manager  converts 
--/  the  string  entered  by  the  user  into  internal  representation. 

--/ 

--/  Parameter  Description: 

vid ->  The  identifier  of  the  variable  whose  value  is  being  set 
(obtained  from  get_identifier  above). 

-/  value  ->  A  string  containing  the  value  to  deposit  into 
--/  the  variable  internal  representaion.  For  composite 

--/  structure,  the  separator  selected. 

-I 

--/  Notes: 

--/  none 

-I . * . 

New_Value:  Value_Representation(1  ..Vid.Length_Of_Value); 

begin 

Types_Manager.Convert_String_To_Value(Vid.Database_ldentifier.Data_Type, 

New_Value'Address, 

Value); 

Vid. Value  :=  New_Value; 

exception 

when  Types_Manager.lllegal_Value  => 

RAISE  lliegai_Vaiue; 

when  others  => 

RAISE  , 

end  Set_Vaiue; 
pragma  page; 
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Junction  Activate  (Name:  in  String; 

Rate:  in  Duration; 

Starting_Time:  Time; 

Usage;  in  IoJJsage)  return  Variablejdentifier  is 

--/ . 

--/  Description: 

--/  This  entry  activates  variables  for  data  collection  or  modification. 

--/  It  builds  the  active  variable  representations  used  by 
--/  the  collect_data  package  in  gathering  information  from  the 
~j  application.  Basically,  all  the  data  needed  to  access 
--/  a  variable  are  passed  in  as  parameters.  Activate  builds  a 
--/  record  from  the  data  and  adds  it  to  the  current  list  of  active 
--/  variables. 

--/ 

--/  Parameter  Description: 

--/  name  ->  The  name  of  the  variable  to  activate. 

--/  rate  ->  The  repetition  rate  at  which  the  variable  is 
--/  to  be  accessed: 

a  value  of  0  =>  a  one-time  access 
-/  a  value  >  0  ==>  read  the  value  every  rate  seconds 

--/  starting_time  •>  The  time  of  day  the  start  command  was  processed. 

--/  usage  ->  Direction  of  access  on  the  variable. 

--/  return  ->  The  identifier  of  the  variable  to  be  activated. 

•*/ 

-I  Notes: 

--/  Activate  operates  on  both  the  read  and  write  lists. 

"I 

--/  Currently,  the  RTM  is  not  sophisticated  enough  to  understand 
--/  the  complexites  of  offsets  as  encountered  in  arrays,  for  example. 

--/  Thus,  the  offset  is  always  returned  as  a  0.  This  means  that  each 
--/  element  of  an  array  must  explicitly  have  an  entry  in  the  variable 
--/  database.  This  is  solely  a  restriction  on  the  prototype  RTM,  not 
--/  a  restnction  on  the  concepts  involved. 

*•/ . 

Data_Length:  Integer; 

Vid;  Variablejdentifier; 

Access_Flag:  Boolean; 

Active_Variable:  Variable JDatabase.The_Variable; 

Address;  Address_Generator. Address J^epresentation; 

begin 

-  Determine  the  system  address  for  the  variable/object. 

Active_Variable  :=  VariableJDatabase.Find(Name); 

Types  J/lanager.Get_TypeJnformation  (Active_Variable.Data_Type, 
DataJ-ength, 

Access_Flag); 

Address  :«  Address_Generator.Compute_Address(Variable_Name  =>  Name); 

-  Build  the  activation  record  for  the  v  14/ .  able. 

Vid :«  new  Active_List_Representation(Data_Length); 

Vid.Object_Address  >  Address; 

Vid.DatabaseJdentifier :«  Active_Variable; 

Vid.Update_Rate  :■  Rate; 
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Vid.Next_Scheduled_Readmg  :=  Starting_Time+Rate 
case  Usage  is 

-  Insert  the  activation  record  into  the  proper  list 

when  Read  => 

Active JJsts. Attach  (Active_Read_List,Vid), 
when  Write  => 

Active_Lists.  Attach  (Active_Wnte_List,Vid); 

end  case  ; 

RETURN  Vid; 
exception 

when  Variable_Database  Variabie_Not_Found  => 
RAISE  Variab!e_Not_Foundf 

when  others  => 

RAISE  ; 

end  Activate; 

pragma  page; 
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procedure  Deactivate  (Vid:  In  Variablejdentifier, 

Usage:  In  lo_Usage)  Is 

/ . . . 

--/  Description: 

--/  Takes  the  identifier  (and  list)  of  an  active  variable  and 
--/  deletes  it  from  the  active  vahable  list.  This  operation 
-I  destroys  the  entry  in  the  list,  but  doesn  7  affect  the  data 
--/  about  the  variable  anywhere  else. 

--/ 

--/  Parameter  Description: 

--/  vid  ->  The  identifier  of  the  vahable  to  deactivate 
-/  (obtained  from  getjdentifier  above). 

--/  usage  ->  direction  of  access  on  the  variable  being  deactivated 
--/  (since  it  is  possible  for  a  variable  to  activate  in 

--/  both  directions). 

-I 

--/  Notes: 

--/  none 

/ . . . ***** . 

begin 

case  Usage  Is 
when  Read  => 

Active_Lists.Deleteitem(Active_Read_List,Vid); 
when  Write  => 

Active_Lists.Deleteitem(Active_Write_List,Vid); 

end  case  ; 

end  Deactivate; 

--/ . 

--/ 

--/  Dialogue_manager  package  body 

--/  The  body  has  one  startup  operation: 

--/  Initialize  the  vahable  database. 

-I . * . . . 

begin 

Variable_Database.lnitialize_Database; 

-  tbd  collect_data.  form_application.inititate; 
end  Dialogue_Manager; 
pragma  page; 


--/ . . . 

--/  Module  Name: 

--/  Collect_Data 
--/ 

--/  Module  Type: 

~l  Package  Body 
--/ 

--/  Module  Description: 

--/  This  package  implements  the  functions  which  interface  to  the 
— I  RTM_core  and  do  the  actual  data  collection. 


-/  References: 

--/  Design  Documents: 

-/  RTM  Design  Descnption 

-/  RTM  Design 

-I 

--/  User’s  Manual: 

--/  RTM  User’s  Manual 

--/ 

--/  Testing  and  Validation: 

--/  none 

--/ 

--/  Notes: 

--/  none 

-I  Modification  History: 

--/  22 May 87  rivs  created 

-I 

--/  Distribution  and  Copyright  Notice: 

--/  7BD 
“/ 

--/  Disclaimer: 

--/  *77]/s  woOc  was  sponsored  by  the  Department  of  Defense. 

--/  The  wews  and  conclusions  contained  in  this  document  are 
--/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied, 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  the  Department  of  Defense,  or  the  U.S.  Government. " 

/ . . 

pragma  page; 


October  1987 


8S 


JV  J V  .  *  to  "  k* 


*  »  v  * 


with  Rtm_Core; 

--  Use  the  type  "rtm_  core_  command_  representation ", 

with  Calendar; 

-  Use  the  type  "time". 

separate  (Dialogue_Manager) 
package  Collect_Data  is 

--  This  structure  allows  us  map  the  data  returned  by  the  RTM_core 

-  back  into  the  variable  database.  It  consists  of: 

vid  ->  The  pointer  into  the  variable  database  where  the 
variable's  value  is  kept. 

Result_Map:  array  (2..Sysgen.Core_Birffer_Size)  of  Variablejdentifier; 

--  These  structures  map  from  the  datatypes  of  variables  into  the  Rtm_  Core 

-  commands  needed  to  access  the  type. 

type  Core_Operation_Representation  is  (Deposit,  Extract); 
type  Command_Map_Rspresentation  is  array 
(Core_Operation_Representation)  of 
Rtm_Core.Rtm_Core_Command_Representation; 

Command_Map:  Command_Map_Representation  := 

(Deposit  =>  Rtm_Core. Deposit, 

Extract  =>  Rtm_Core. Extract ); 


Next_Update_Time.  Calendar.Time; 

--  Internal  procedures 

procedure  Build_Rtm_Core_Commands  ( 

List:  In  out  ActiveJJsts.List; 

Command.  In  Core_Operation_Representation; 

Command_Position:  in  out  Rtm_Core.Buffer_Range; 

Data_Position:  In  out  Rtm_Core.Buffer_Range)  is  separate  ; 

procedure  Retrieve_Rtm_Core_Resuits  (Ending_Position:  In  Integer)  is 

separate  ; 

--  Package  procedures 

procedure  From  Application  is  separate  ; 

end  Collect_Data; 
pragma  page; 
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with  Rtm_Core; 

--  Use  the  service  "process_buf1er". 

separate  (Dialogue_Manager.Collect_Data) 
procedure  From  Application  is 
-tbd  Task  body  from_application  is 

-I . 

--/  Description: 

--/  This  procedure  mechanizes  the  actual  reading  and  writing  of 
--/  data  in  application  memory.  It  does  this  by: 

--/  T.  Building  a  list  with  all  the  deposit  (Set)  commands  to  be  done. 

--/  2.  Adding  to  that  list  all  the  extract  (Read  or  Start)  commands 

--/  to  be  done. 

--/  3.  Calling  the  RTM_Core  to  process  the  commands  and  waiting 

--/  lor  it  to  complete. 

--/  4.  Retrieving  the  results  of  the  commands  and  storing 

--/  them  in  the  variable  database. 

*•/ 

--/  Parameter  Description: 

-j  none 
-I 

--/  Notes: 

**/ . 

Next_Command_Position:  Rtm_Core.Buffer_Range  :=  1; 

Next_Data_Position:  Rtm_Core.Buffer_Range  :=  1; 

begin 

-tbd  Accept  initiate; 

-tbd  next_update_time  :=  calendar.clock  +  sysgen.  mini  mu  m_  delay; 

-tbd  loop 

-tbd  delay  next  updatejime  -  calendar.clock; 

-tbd  Accept  get_next_set  do 

If  Calendar.clock  <  Next_Update_Time  then 
RETURN  ; 
end  If ; 

Bu  i  ld_Rtm_Core_Command  s 
(List  =>  Active_Write_List, 

Command  =>  Deposit, 

Command_Position  =>  Next_Command_Position, 

Data_Position  =>  Next_Data_Position); 

Bu  i  ld_R  tm_Core_Command  s 
(List  =>  Active_Read_Ust, 

Command  =>  Extract, 

Command_Position  =>  Next_Command_Position, 

Data_Position  =>  Next_Data_Position); 

Rtm_Core.  Process_Buffer; 

Retrieve_Rtm_Core_Results  (Ending_Position  =>  Next_Command_Position); 
-tbd  end  get_next_set; 

-tbd  End  loop; 
end  From_Application; 
pragma  page; 
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separate  (Dialogue_Manager.Collect_Data) 
procedure  Build_Rtm_Core_Commands  ( 

List:  in  out  Active_Lists.List; 

Command:  in  Core_Operation_Representation, 

Command_Position  In  out  Rtm_Core.Buffer_Range; 

Data_Position  In  out  Rtm_Core.Buffer_Range)  is 

/ . 

--/  Description: 

--/  This  module  takes  a  list  of  active  variables  and  a  command 
--/  to  be  associated  with  those  variables  and  builds  a  command 
--/  buffer  for  the  Rtm_Core  to  process,  ft  does  this  by: 

--/  7.  Looping  through  all  the  variables  in  the  active  list. 

--/  2.  Checking  the  next  operation  time  of  each  variable, 

--/  and  if  the  time  has  come: 

--/  a  for  each  piece  of  the  variables  value, 

--/  -  format  the  command  tnplet: 

--/  (command,  address,  value/status) 

--/  -  format  the  map  entry  to  retneve  the  data  with 

/ 

--/  Parameter  Description: 

--/  list ->  The  active  variable  list  from  which  the 
--/  commands  are  to  be  formatted. 

--/  command  ■>  The  RtmCore  command  to  be  formatted. 

--/  command_position  ->  The  beginning  point  in  the 
~l  command  buffer  where  the  commands 

--/  are  to  be  placed. 

--/  data i_j position  ->  The  beginning  point  in  the 
--  /  data  buffer  where  the  data  are  (to  be) 

--/  stored. 

--/ 

-I  Notes: 

-/  command _postion  &  data position  must  be  intialized  and 
-/  passed  into  this  procedure  to  insure  proper  functioning. 

~l  Once  passed  in,  these  parameters  are  modified  and  returned  so 
-/  that  successive  calls  to  this  procedure  can  incrementally  build 
--/  the  command  buffer. 

--/ . . . . 

List_Position :  Active_Lists. Listiter; 

The_Next_Variable:  Variabiejdentifier; 

Ust_Size:  Integer; 

Data_Count:  Positive; 
begin 

-  We  operate  on  this  list  in  a  slightly  different  way.  We  get 

-  the  size  of  the  list  before  we  begin  operating  on  the  list,  and  we 

-  build  a  list  iterator  to  get  elements  from  the  list.  Then,  we  loop 

-  the  list  checking  time  of  each  entry.  If  the  scheduled  time  has  arrived, 

-  we  format  the  command  and  move  the  entry  to  the  end  of  the  list,  the 

-  reason  being  that  we  can  only  fit  a  finite  number  of  commands  in  the 

~  buffer  at  any  one  time;  this  movement  insures  that  commands  missed  on 

-  one  pass  will  be  picked  up  on  a  subsequent  pass. 

List_Size  :«  ActiveJJsts.Length(list); 

LiSt_Position  Active_Lists.Makelistiter(List), 
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for  Countln  1  ..List  Size  loop 

Act  ive_Lists.Next(List_Position,Tne_Next_  Variable); 

Data_Count  :=  The_Nex1_Vanabie.Length_0?_Vaiiie, 

ft  (Calendar  Cioc*  >=  The_Next_Variabie.Next_Scheduled_Reading)  and 
(Data_Position  +  DataCount  <=  Sysgen.Core_Bufier_Size)  then 

Build  the  next  command  tor  the  core. 

Command_Position  :=  Command_Position  +  1; 

Rtm_Core  Command_Buffer(Command_Position). Command  := 
Command_Map  (Command); 

Rtm_Core.Command_Bufter(Command_Position).Data_Address  := 
The_Next_Variable.Object_Address; 
Rtm_Core.Command_Buffer(Command_Position).Data_Count  := 
Data_Count; 

Rtm_Core.Command_Buffer(Command_Position).Data_Location  := 
Data_Position; 

Build  the  map  to  extract  the  results  later. 

Result_Map(Command_Position)  ;=  The_Next_Variable; 

Fill  in  the  data  to  transfer  to  the  application  (for  deposit  commands). 

case  Command  Is 
when  Deposit  => 

for  Next  In  1  ..Data_Count  loop 

Rtm_Core.Data_Buffer(Data_Position)  := 
The_Next_Variable.Value(Next); 

Data_Position  .=  Data_Position  +  1 ; 
end  loop  ; 
when  Extract  => 

Data_Position  :=  Data_Position  +  Data_Count; 

end  case ; 

Mark  the  command  buffer  as  ready  for  processing. 

Rtm_Core.Command_Buffer(1). Command  :=  Rtm_Core.Butter_Avaiiabie 

Move  the  element  just  processed  to  the  end  of  the  list. 

Active_Usts.Deleteitem  (L  =>  List, 

Element  =>  The_Next_Variable); 
The_Next_Variable.Next_Scheduled_Reading  ;« 
The_Next_Variable.Next_Scheduled_Reading  + 
The_Next_Variable.Update_Rate; 

Active_Lists. Attach  (List,The_Next_Variable); 

end  If ; 

Finally,  keep  a  njnning  tab  on  the  next  scheduled  update  time  for  all 
the  variables.  This  will  prevent  us  from  doing  any  unneeded 
list  traversals. 


It  Next_Update_Time  >  Trie  Next  Variable  Next_Scheduled_Reading  then 
Next  Update  Time  :=  The  Next  Variable. Next  Scheduled  Readinq; 

end  If  ; 
end  loop  ; 

end  Build_Rtm_Core_Commands: 
pragma  page; 
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separate  (Dialogue_Manager.Collect_Data) 

procedure  Retneve_Rtm_Core_Results  (Ending_Position:  in  Integer)  is 

--/ . 

--/  Description: 

--/  This  procedure  maps  the  data  collected  by  the  Rtm_ Core 
--/  back  into  the  active  variable  list. 

-I 

--/  Parameter  Description: 

--/  ending_position  ->  Marks  the  position  of  the  last  command 
--/  stored  in  the  command  buffer. 

-I 

--/  Notes: 

--/  none 

. . .  ** 

Next_Data_Location:  Rtm_Core.Buffer_Range  :=  1; 

begin 

-  Loop  through  all  the  commands  in  the  core  buffer,  mapping 

-  the  data  back  into  the  active  variable  list. 

for  Position  In  2..Ending_Position  loop 

for  Next  In  1  ..Rtm_Core.Command_Buffer(Position).Data_Count  loop 
Result_Map(Position).Value{Next)  := 

Rtm_Core.  Data_Buffer(Next_Data_Location) ; 

Next_Data_Location  :=  Next_Data_Location  +  1 ; 
end  loop  ; 
end  loop  ; 

end  Retrieve_Rtm_Core_Resufts; 
pragma  page; 
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/ . * . 

-I  Module  Name: 

--/  Sysgen 

-/ 

-/  Module  Type: 

- 1  Package  Specification 
-I 

--/  Module  Purpose: 

--/  Define  the  system-wide  constants  needed  when  rehosting  and 
--/  tuning  the  RTM. 

--/  Module  Description: 

--/  This  package  defines  the  system-dependent  constants  needed 
-I  by  the  RTM.  All  the  constants  are  completely  described  below. 
--/ 

-/  References: 

--/  -  Design  Documents: 

--/  RTM  Design  Description 

--/ 

-I  User’s  Manual: 

--/  none 

--/ 

--/  Testing  and  Validation: 

-I  none 

**/ 

--/  Notes: 

- I  none 

--/  Modification  History: 

- 1  02Apr87  rlvs  Created 
--/ 


--/  Distribution  and  Copyright  Notice: 

~l  TBD 

-I 

-I  Disclaimer: 

-I  "This  work  was  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
~l  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
~l  representing  official  policies,  either  expressed  or  implied, 

-I  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  the  Department  of  Defense,  or  the  U.S.  Government.  ’ 

-/ . * - ***** 

pragma  page; 
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package  Sysgen  is 

-  Defines  the  minimum  amount  of  time  between  successive  updates  of  the 
-■  screen 

Minimum_De!ay  constant  Duration  =0  1; 

-  Defines  the  smallest  addressable  unit  on  the  RTM_core  CPU. 
subtype  Smallest_Unit  is  Integer, 

-  Defines  the  maximum  number  of  commands  which  the  RTM_core  can 

-  process  in  one  time-slice 

Core_Buffer_Size:  constant  :=  1000; 

-  Defines  the  number  of  processors  in  the  RTM/apphcation  configuration . 
Processor_Count:  constant  :=  1 ; 

-  Defines  the  default  disk  where  the  RTM  can  access  stored  information. 

Default_Rtm_Device  constant  String  :=  *ps;[rtm. prototype. rtm]"; 

end  Sysgen; 
pragma  page; 
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--/ . 

--/  Module  Name: 

--/  Rtm_Core 

~/ 

--/  Module  Type: 

--/  Package  Specification 
-I 

--/  Module  Purpose: 

--/  Performs  read  (extract)  and  write  (deposit)  operations  on 
--/  system  storage  units,  which  are  the  smallest  addressable 
--/  units  in  the  system. 

--/  Module  Description: 

--/  777/s  package  is  an  abstraction  for  the  actual  application 

-/  software  underlying  the  RTM.  This  allows  the  RTM  to  know  how 
--/  to  talk  with  the  Rtm_Core,  but  relieves  it  of  the  need  to 
--/  know  anything  about  the  specific  application. 

"I 

--/  References: 

-I  Design  Documents: 

--/  Real-Time  Monitor  Requirements 
-- /  Real-Time  Monitor  Design 

--/ 

--/  User’s  Manual: 

-I  RTM  User’s  Manual 

--/ 

--/  Testing  and  Validation: 

-j  none 

~/ 

-/  Notes: 

-/  Trtere  are  two  buffers  that  form  the  interface  between  the  RTM 
-I  and  the  application:  the  command_buffer,  shown  below,  which  holds 
--/  all  the  command  and  address  information  needed  to  perform  the 
--/  requested  operations  and  the  data_buffer,  which  simply  holds  the 
-I  data  to  deposit  or  the  data  extracted.  These  two  buffers  are 
-I  connected  by  the  <data_location>  field  shown  below. 

-I 

--/  Command  Buffer 

--/  /  <buffer  available>  / 

-I  I  <deposit  marker>  / 

--/  /  <address>  {base  address, offset,  flag}  / 

~l  j  cdata  count >  / 

~l  j  <data  location>  / 

- II  I 

- II  I 

-I  I-  I 

--/  /  <extract  marks r>  \ 
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V 


I 


i 


i 


--/  /  <address>  {base  address,  offset,  flag}  / 


--/  /  <datacount>  / 

-  /  /  <dafa  location>  / 

-II.  I 

- II  I 

-I  I  ■  I 


--/  /  <enb  0/  buffer  markers  / 

'■/  . 

--/ 

--/ 

--/  This  function  is  the  partition  point  of  the  monitor  in 
--/  a  multi-processor  implementation.  The  core  function 
--/  described  here  is  all  of  the  monitor  that  MUST  be  part 
- 1  of  the  application  timing  and  control. 

t 

”/ 

--/  The  size  of  the  command  and  data  buffers  is  a  sysgen  parameter 
-j  which  can  be  tuned  to  meet  the  performance  needs  of  the  system. 
-I 

--/  The  details  on  how  the  partition  between  one  and  two  processors 
--/  would  take  place  are  discussed  in  the  design  description 
-  j  document  for  the  RTM. 

-I  Modification  History: 

--/  02Apr87  rlvs  Created 
**/ 

--/  Distribution  and  Copyright  Notice: 

--/  TBD 

"I 

--/  Disclaimer: 

~l  This  work  was  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
--/  solely  those  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied. 

--/  of  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  the  Department  of  Defense,  or  the  U.S.  Government. " 

-I . 
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with  Address_Generator; 

-  Uses  the  type  "address_representation". 

with  Sysgen; 

--  Uses  "core_buffer_ size ",  which  is  the  system  parameter  that  controls 

-  the  maximum  size  of  the  interface  buffer  to  the  core  and  thereby  controls 

-  the  maximum  amount  of  processing  the  core  will  need. 

-  Uses  "smallesf_unit",  which  defines  the  smallest  addressable  unit  that 

-  can  be  read  or  whtten. 


package  Rtm_Core  is 

-  Define  the  legal  commands  which  will  be  recognized; 

-  these  are  defined  as  an  integer  subtype  because  in  a  two-CPU 

-  configuration,  there  is  knowledge  on  either  CPU  about  the 

-  representation  of  data  on  the  other  CPU.  Therefore,  integers  are 

-  the  safest  means  of  communicating  commands  across  a  bus. 

subtype  Rtm_Core_Command_Representation  is  P  Tsitive  range  1..10; 
Address_Error:  constant  Rtm_Core_Commano  Representation  :=  10; 
Buffer_Avaiiable:  constant  Rtm_Core_Command_  Representation  :=  9; 
Results_Available:  constant  Rtm_Core_Command_Representation  :=  8; 
Masked_Deposit:constant  Rtm_Core_Command_Representation  :=  7; 
Masked_Extract:  constant  Rtm_Core_Command_Representation  :=  6; 
Deposit:  constant  Rtm_Core_Command_Representation  :=  3; 

Extract:  constant  Rtm_Core_Command_Representation  :=  2; 

End_Of_Buffer:  constant  Rtm_Core_Command_Representation  :=  1 ; 

--  This  object  makes  two  arrays  visible  to  the  external  world, 

-  the  reason  being  that  in  a  single  processor  system,  the  object  commanding 

-  the  RtmCore  can  do  so  by  simply  filling  in  the  buffers  before  invoking  it. 

-  In  a  mufti-processor  environment,  the  buffers  are  visible  to 

-  the  bus  I/O  handler.  The  command_buffer  is  filled  with  as  many 

-  deposit/extract  commands  as  will  fit.  The  only  requirements  on  the 

-  buffer  are  that  it  start  with  a  buffer_available  command  and  that  the 

-  last  command  be  followed  by  an  end_of_buffer  command.  Also, 

--  no  usable  data  in  the  data_buffer  are  sent  back  to  the  RTM, 

-  until  the  buffer_available  command  has  been  overwritten  by  a 

-  results_available  command  in  the  command_buffer. 

subtype  Buffer_Range  Is  Integer  range  1.. Sysgen. Core_Buffer_Size; 
type  Buffer_Entry_Representation  is  record 

Command:  Rtm_Core_Command_Representation  :=  End_Of_Buffer; 
Data_Address:  Address_Generator.Address_Representation; 
Data_Count:  Buffer_Range; 

Data_Location:  Buffer_Range; 
end  record  ; 

Command_Buffer:  array  (1,.Buffer_Range’Last)  of 
Buffer_Entry_Representation  :«=  (others  => 
(End_Of_Buffer,Address_Generator.Null_Address,1 ,1 )); 

Data_Buffer:  array  (1..Buffer_Range'Last)  of 
Sysgen. SmallesMJnit  :•=  (others  *>  0); 
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pragma  page; 


procedure  Process_Buffer; 

--/ . . . 

--/  Description: 

--/  Instructs  the  core  to  check  its  communications  buffer  for  commands. 
--/  If  there  are  commands  available,  then  process  the  buffer.  If  not, 

--/  no  processing  action  is  taken. 

--/ 

--/  Parameter  Description: 

--/  none 


end  Rtm_Core; 
pragma  page; 
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--/  Module  Name: 

-/  RTM_Core 

~/ 

-/  Module  Type: 

- 1  Package  Body 
--/ 

--/  Module  Description: 

--/  77ns  module  processes  the  commands  formatted  by  the  RTM, 

--/  by  converting  integers  from  the  command  buffer  into  pointers 
-j  and  then  using  the  pointers  to  access  the  data 

--/  References: 

--/  Design  Documents: 

- 1  Real-  Time  Monitor  Requirements 

- 1  Real-  Time  Monitor  Design 

/ 

•*/ 

--/  User’s  Manual: 

-j  RTM  User's  Manual 

-I 

-I  Testing  and  Validation: 

--/  none 

-I 

-I  Notes: 

--/  none 

-- 1  Modification  History: 

--/  16Apr87  rtvs  created 

*•/ 

--/  Distribution  and  Copyright  Notice: 

-/  TBD 

--/ 

--/  Disclaimer: 

- 1  This  work  was  sponsored  by  the  Department  of  Defense. 

--/  The  views  and  conclusions  contained  in  this  document  are 
--/  sote/y  /bose  of  the  author(s)  and  should  not  be  interpreted  as 
--/  representing  official  policies,  either  expressed  or  implied, 

--/  0/  Carnegie  Mellon  University,  the  U.S.  Air  Force, 

--/  /be  Department  of  Defense,  or  the  U.S.  Government.  * 

-I . . . * - 

pragma  page; 
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with  System, 

-  Need  access  to  the  type  " address  ” 
with  Unchecked_Conversion; 

--  Need  "unchecked_  conversion "  to  convert  the  integer  in  the 

-  command  buffer  into  a  pointer  to  a  value  of  type  "sysgen.smallest_unit". 


package  Rtm  Core  is 

--  Set  up  the  system  work  needed  to  access  data  on  the  core  CPU. 

-  First,  we  create  a  type  that  points  to  a  value  of  the  smallest 

-  addressable  unit  on  the  CPU.  Then,  we  instantiate  unchecked_conversion 

-  to  allow  us  to  transform  the  integer  form  of  the  address  in  the  command 

-  buffer  into  an  address  that  Ada  will  understand. 

type  Value_Pomter  is  access  Sysgen.Smallest_Unit; 
function  Get_Address  is  new  Unchecked_Conversion 
(Source  =>  Integer, 

Target  =>  Value_Pointer); 

function  Get_Actual_Address  Is  new  Unchecked_Conversion 
(Source  =>  Sysgen.SmailestJJnit, 

Target  =>  Value_Pointer); 

pragma  page; 
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-  Internal  procedures 


procedure  Compute_Address  (Data_Address  out  Integer; 
Command_Number  In  Integer)  Is 

--/ . . . . . 

Description: 

-/  This  module  is  responsible  for  decoding  the  address  parameter 
--/  of  the  command  passed  in.  This  is  a  two-step  operation: 

-I 

--/  1.  For  indirect  addresses,  the  actual  base  address 

--/  must  be  read. 

--/  2.  The  offset  must  be  added  to  the  base  address. 

-I 

-I 

--/  Parameter  Description: 

--/  data_address  ->  The  computed  address  of  the  desired  data. 

--/  command_number  ->  Command  being  processed  in  the  command_buffer. 

-I 

--/  Notes: 

--/  none 

--/ . * . 

Address:  Address_Generator.Address_Representation 

renames  Command_Buffer(Command_Number).Data_Address; 

Value  Address:  Value_Pointer; 

Actual_Base_Address:  Integer; 
begin 

If  Address. Indirection  then 

Value_Address  :=  Get_Address(Address.Base_Address); 
Actual_Base_Address  :=  lnteger(Value_Address.all ); 

Data_Address  :=  Actual_Base_Address  +  Address. Address_Offset; 

else 

Data_Address  :=  Address. Base_Address  +  Address.AddressjDffset; 

end  If  ; 

end  Gompute_Address; 
pragma  page; 
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procedure  DepositData  (Data_Address;  In  Integer, 

Command_Number.  In  Bufter_Range)  Is 

/ . 

--/  Description: 

--/  Moves  the  data  from  the  data_  buffer  passed  by  the  RTM  into 
--/  application  memory. 

-I 

--/  Parameter  Description: 

--/  data_address  ->  The  computed  address  of  the  desired  data 
--/  in  the  case  of  a  mulitple  unit  read,  this 

--/  is  the  address  of  the  first  unit  in  the  block. 

--/  command_number  ->  Command  being  processed  in  the  command^  buffer. 

-! 

--/  Notes: 

--/  none 

-I . * - * . 

Next_Address:  Integer  :=  Data_Address; 

The_Value:  Value_Pointer  :=  Get_Address(Next_Address); 

Data_Offset:  Buffer_Range  renames  Command_BLrffer(Command_Number).Data_Location; 

begin 

for  Next  In  O..Command_Bufter(Command_Number).Data_Count-1  loop 
The_Value.all  :=  Data_Bufter(Next  +  Data_Oftset); 

Next_Address  :=  NexIAddress  +  1; 

The_Value  :=  Get_Address(Next_Address); 
end  loop  ; 
end  Deposit_Data; 

pragma  page; 
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procedure  Extract_Data  (Data_Address:  in  Integer; 

Command_Number:  in  Buffer_Range)  is 

-I . . . * . 

--/  Description: 

— /  Moves  the  data  from  application  memory  into  data^buffer  passed 
--/  back  to  the  RTM. 

-I 

--/  Parameter  Description: 

--/  data  address  ->  The  computed  address  of  the  desired  data. 

- 1  In  the  case  of  a  mulitple  unit  read,  this 

--/  is  the  address  of  the  first  unit  in  the  block. 

--/  command_number  ->  Command  being  processed  in  the  command_buffer. 

-I 

-I  Notes: 

-I  none 

-I . * - 

Next_Address:  Integer  :=  Data_Address; 

The_Value:  Value_Pointer  :s=  Get_Address(Next_Address); 

Data_Offset:  Buffer_Range  renames  Command_Butter(Command_Number).Data_Location; 

begin 

for  Next  In  O..Command_Buffer(Command_Number).Data_Count-1  loop 
Data_Buffer(Next  +  Data_Offset)  :=  The_Value.all  ; 

Next_Address  :=  Next  Address  +  1 ; 

The_Value  :=  Get_Address(Next_Address); 
end  loop  ; 
end  Extract_Data; 

pragma  page; 
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procedure  Get_Buffer  Is 

/ . . . . . 

--/  Description: 

--/  This  procedure  is  available  for  a  two-CPU  implementation 

--/  of  the  RTM.  It  is  responsible  for  knowing  how  to  receive 

--/  data  over  a  communications  bus  and  doing  any  conversions  needed 

--/  to  get  the  data  into  a  usable  format. 

-! 

--/  Parameter  Description: 

--/  none 

"/ 

--/  Notes: 

--/  none 

/ . 

begin 

case  Sysgen.Processor_Count  is 

*  when  1  => 
null  ; 

when  2  => 

Here  is  where  the  bus  i/o  goes 

null  ; 

when  others  => 
null  ; 

end  case  ; 

end  Get_Buffer; 

pragma  page; 
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procedure  Send_Buffer  is 

--/ . 

--/  Description: 

--/  This  procedure  is  available  tor  a  two-CPU  implementation 

— /  of  the  RTM.  It  is  responsible  for  knowing  how  to  send 

--/  data  over  a  communications  bus  and  doing  any  conversions  needed 

--/  to  get  the  data  into  a  usable  format  before  transmission. 

-/ 

--/  Parameter  Description: 

--/  none 
-I 

-I  Notes: 

--/  none 

-I . * . 

begin 

case  Sysgen.Processor_Count  is 

when  1  => 
null  ; 

when  2  => 

Here  is  where  the  bus  i/o  goes 

null  ; 

when  others  => 
null  ; 

end  case  ; 

end  Send_Buffer; 


pragma  page; 
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procedure  Process_Buffer  is 

-! . 

--/  Description: 

-/  This  module  reads  the  command  butter  from  the  interface 
--/  (which  doesn't  exist  on  a  one-CPU  implementation)  and  loops 
-j  through  the  commands  performing  the  operations.  Currently  there 
-/  are  four  operations  defined: 

-j  masked_deposit  ->  Requests  that  the  core  move  a  value 
-/  from  the  command  buffer  into  application 

-/  memory,  but  mask  the  target  so  that  unaffected 

-/  bits  will  be  preserved  (for  rep  clauses). 

— /  masked_extract ->  Requests  that  the  core  move  a  value 

-/  from  application  memory  into  the  command 

-/  buffer,  but  mask  the  target  so  that  unaffected 

-/  p/'fs  will  be  preserved  (for  rep  clauses). 

--/  deposit  ->  Requests  that  the  core  move  a  value 
-j  from  the  command  buffer  into  application  memory. 

--/  extract  ->  Requests  that  the  core  move  a  value 
-j  from  application  memory  into  the  command  buffer. 

-/  When  all  the  commands  in  the  buffer  have  been  processed,  the 
-j  buff er_av ail able  command  of  the  RTM  is  overwritten  by  the 
--/  results_available  command  of  the  core. 

-I 

--/  Parameter  Description: 

--/  none 
--/ 

-I  Notes: 

--/  If  the  core  is  unable  to  use  an  address  contained  in  the 
--/  command  buffer,  the  command  associated  with  that  address 
-/  is  overwritten  by  an  address_error  command. 

-I 

--/  The  masked  ^extract  and  masked_deposit  operations  are  not  currently 
--/  implemented. 

/ . . . . . 

Vaiue_Address:  Integer; 

begin 

-  Load  the  buffer,  and  check  to  see  if  any  new  commands  are 

-  available  for  processing.  If  not,  we  simply  cut  out  without 

-  further  ado. 

Get_Buffer; 

ft  (Command._Buffer(1 ). Command /=  Butfer_Available)  then 
return  ; 
end  It ; 

-  When  there  are  commands  to  be  processed,  we  loop  through  the  command 

-  buffer,  processing  commands  until  an  end_of_buffer  is  found,  or 

-  we  reach  the  end  of  the  buffer 

for  Command  In  2..Sysgen.Core_Buffer_Size  loop 
case  Command_Buffer(Command).  Command  Is 
when  Deposit  => 

Compule_Address  (Vaiue_Address,  Command); 
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Deposit_Data  (Vaiue_Address.  Command); 
when  Extract  => 

Compute_Address  (Value_Address,  Command), 
Extract_Data  (Value_Address,  Command), 
when  Masked_Extract  => 

null  ; 

when  End_Of_Buffer  => 

EXIT  ; 

when  others  => 
null  ; 
end  case  ; 
end  loop  ; 

-  Mark  the  results  as  being  available  and  return  them  to  the  RTM 

Command_Bufter(1). Command  :=  Resu!ts_Avai!able; 
Send_Buffer; 
end  Process_Buffer; 

end  Rtm_Core; 
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Setup_Rtm  6,  9 
Start_Page  37,43,47 
Stop_Page  38,  43,  49 
Update_Pages  39,  43,  52 
Process_Buffer,  procedure  1 61 , 169 
Process_The_Command,  procedure  6,  1 1 
Pu1_Rtm_Field,  procedure  14,  22 
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Real_Pointer,  type  85 
Real_Pointer_To_Address,  function  85 
Real_Time_Momtor,  package  4 
Real_Time_Monitor,  package  body  6 
Real_Time_Monitor,  with  1 

Retrieve_Rtm_Core_Results,  procedure  149,  154 
Rtm,  procedure  4,  6,  7 
Rtm_Cli,  package  27 
Rtm_Command_Representation,  type  27 
Rtm_Core,  package  159 
Rtm_Core,  package  body  163 
Rtm_Core,  with  149,150 
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Rtm_Enum_Poirrter,  type  97 
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Rtm_Form,  package  14 
Rtm_Form,  package  body  18 
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Rtm_lntegers,  package  99 
Rtm  Pointer,  type  2 
Rtm_Reals,  package  98 
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Sa,  package  30 
Send_Buffer,  procedure  168 
Set,  procedure  62,  64,  67 
Set_lnput_Mode,  procedure  15,24 
Set_Value,  procedure  133,144 
Setup_Page,  function  43,  56 
Setup_Rtm,  procedure  6,  9 
Si,  package  30 
Smallest_Unrt,  subtype  1 56 
Sp,  package  33 

Standard_lnterface,  with  7,  27,  30 
Start_Page,  procedure  37,  43,  47 
Stop_Page,  procedure  38,  43,  49 
Stnng_Pkg,  with  33 
Subtype 

Buffer_Range  159 
Page_Name_Representation  42 
Rtm_Core_Command_Representation  159 
Smallest_Umf  156 
Value_String  130 
Var\able_Name_Representation  41 
Sysdep,  wrth  18 
Sysgen,  package  156 
Sysgen,  wrth  139,159 
System,  wrth  71,93,120,163 

Terminal  interface,  wrth  6,11,49 
Tesi  Stub.  package  2 
res'  Stub,  package  body  2 
’•s'  StuD  win  1,96  120 
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Active_List_Representation  136,  140 
Address_Representation  126 
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Command_Map_Representation  149 
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lnteger_Pointer  81,97 
lo_Usage  130 

Page_Field_Representation  41 
Page_Representation  42 
Real_Pointer  85 
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Type_Representation  96 
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Value_Pointer  163 
Value_Representation  139 
Variable  Jdentrfier  130,  136 
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Variable_Representation  1 1 7 
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Types_Manager,  package  body  96 
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Update_Pages,  procedure  39,  43,  52 

Vaiid_Rtm_Type,  type  93,  94 
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